画像を分割していって、データを二次元リストに入力していく方法

Question

画像を分割していって、データを二次元リストに入力していく方法
プログラムを書いたのですが、なぜかエラーが出ます、どうすれば良いのでしょうか。

img = load.image("box0.jpg")
img = resize(img,10,10)

imger <- list()
df <- list()

for (i in 1:4) {
  for (j in 1:4) {
  imger[i][j] = imsub(img, (2*j <= x) && (x < 2*(j+1)), (2*i <= y) && (y < 2*(i+1)))
  df[i][j] = as.data.frame( imger[i][j] )
  }
}

画像（box0.jpg）

エラー内容
imger[i][j] <- imsub(img, (2 * j <= x) && (x < 2 * (j + 1)), でエラー:
replacement (置き換え) の長さが 0

全然分からないのですが・・・何が０なのか・・・？

範囲はいちいち,で区切って引数にする必要があるんですかね？

それを踏まえた上でのコードは以下

img = load.image("box0.jpg")
img = resize(img,10,10)

imger <- list()
df <- list()

for (i in 1:4) {
  for (j in 1:4) {
  imger[i][j] = imsub(img, 2*j <= x, x < 2*(j+1), 2*i <= y, y < 2*(i+1))
  df[i][j] = as.data.frame( imger[i][j] )
  }
}

以下のエラーが出ます。
][j] <- as.data.frame(imger[i][j]) でエラー:
replacement (置き換え) の長さが 0 です
追加情報: 警告メッセージ:
1: imger[i][j] <- imsub(img, 2 * j <= x, x < 2 * (j + 1), 2 * i <= で:
置き換えるべき項目数が、置き換える数の倍数ではありませんでした
2: imger[i][j] <- imsub(img, 2 * j <= x, x < 2 * (j + 1), 2 * i <= で:
置き換えるべき項目数が、置き換える数の倍数ではありませんでした
3: imger[i] <- *vtmp* で:
置き換えるべき項目数が、置き換える数の倍数ではありま

しかし、

img = load.image("box0.jpg")
img = resize(img,10,10)

imger <- list()
df <- list()

for (i in 1:4) {
  for (j in 1:4) {
  imger[i][j] = imsub(img, 2*j <= x, x < 2*(j+1), 2*i <= y, y < 2*(i+1))
  }
}

という風に、データフレーム化しなければ、エラーが出ません。
しかし、データフレーム化しないと情報が見れません。
どうすれば良いのでしょうか。

あと１つ分かったのですが、なぜかこの条件文中では不等号と等号は区別がないみたいです、
なんで等号つけるのやめます。

Answer 1

おそらくそこには画像サイズが入ると思いますが、＆＆という演算子はなにを表すものか確認してみては。

Comments

[ques346]

演算子の問題ですか？　&&と||は同じもので「かつ」を指すので、論理記号として使い方はあっていると思うのですが・・・

[episteme]

&&と||は同じもの？

[y_waiwai]

で、その計算結果はどうなるとお考えでしょうか

って、問題変わってるやんｗ

[ques346]

||だと上手くいくんですか？

[KojiDoi]

＞ &&と||は同じもので「かつ」を指すので、

流石にこれはないわー。画像処理なんてややこしいことに手を出すより先に、適当なチュートリアルで基礎を固めるべき。初歩的なとこで引っかかって、そのつどアホみたいな質問を連発して、いつまでもこのノリでなんとかなると思っているとしたら世の中ナメ過ぎです。

[ques346]

||だと上手くいきました、追記しましたが、またエラーです、謎の