SimNo <- 10
for (i in 1:SimNo){
z1<-rnorm(1000,0,1)
z2<-rnorm(1000,0,1)
z3<-rnorm(1000,0,1)
z4<-rnorm(1000,0,1)
z5<-rnorm(1000,0,1)
z6<-rnorm(1000,0,1)
X<-cbind(z1,z2,z3,z4,z5,z6)
sx<-scale(X)/sqrt(999)
det1<-det(t(sx)%*%sx)
detans<-do.call(rbind,lapply(1:SimNo, function(x) ifelse(det1<1,det1,0)))
}
, когда я бег всех команд с в цикле, за исключением последнего, я получаю различные значения определителя, но когда я запускаю код с петлями сразу я получаю последнее значение определителя повторяется для всех.lapply и rbind не правильно добавляющих результаты
Пожалуйста, помогите и руководствуйтесь всей ситуацией.
Есть ли способ иметь короткий и эффективный способ для этого кода, чтобы можно было получить доступ к каждой отдельной переменной.
Спасибо за прекрасный ответ. Для копирования того, как я могу получить доступ к отдельным x, например x1, x2, ... x6. Еще раз спасибо –
@ itfeature.com, см. Мой отредактированный ответ. – flodel
Большое спасибо. Получил решение многих проблем. –