Я хочу заполнить матрицу w в соответствии с приведенным ниже кодом
num_feats = 4726
num_obsvs = 500
mod_size = 35
num_causl = 35
W<-matrix(0,num_feats,num_feats)
for(i in 2:(as.integer(num_feats/mod_size)-1))
w[(i-1)*mod_size:(i)*mod_size,(i-1)*mod_size:(i)*mod_size]<-matrix(1,ncol= mod_size,nrow = mod_size)
if (i!=as.integer(num_feats/mod_size-1))
{
w[(i+1)*mod_size-1,(i+1)*mod_size]<-1
w[(i+1)*mod_size,(i+1)*mod_size-1]<-1
}
Но это дает мне такую ошибку:
Ошибка в w [(i - 1)* mod_size: (i) * mod_size, (i - 1) * mod_size: (i) *: количество заменяемых элементов не кратно длине замены
Я пытался настроить размер, носейчас путь!как я могу решить это, пожалуйста?