#以下のようなエラーをどう対応すればいいでしょうか。
for(i in c(1:3)){
-
data.sub<- subset(data.sub, ID== data.id[i])
-
data.ma<- as.matrix(data.sub)
-
data.rle<- tapply(data.ma[,4], data.ma[,3], rle)
-
data.0<- cbind(ID= as.character(data.id[i]), Estrus= 0, Value= data.rle$'0'$values, Length= data.rle$'0'$lengths)
-
if(ncol(data.0)== 4){
-
data.0.1<- rbind(data.0.1, data.0)}else{
-
data.0.1<- data.0.1
-
}
-
data.1<- cbind(ID= as.character(data.id[i]), Estrus= 1, Value= data.rle$'1'$values, Length= data.rle$'1'$lengths)
-
if(ncol(data.1)== 4){
-
data.0.1<- rbind(data.0.1, data.1)}else{
-
dara.0.1<- data.0.1
-
}
-
}
Error: $ operator is invalid for atomic vectors
#for(i in c(1:3))の中身の数値を一個ずつに手入力するとエラーが出なく実行されます。
原因は何でしょうか。
よろしくお願いいたします。
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。