Dppelschleife
Verfasst: Fr Mai 26, 2017 9:35 pm
Hallo,
ich wuerde gern die folgende for-Schleife hier in eine andere Schleife einbetten:
Der Faktor, der die andere Schleife durchlaufen soll, geht von 1:21. (Da das etwas umstaendlich aussieht, habe ich auch versucht, obige Schleife mit lapply oder apply zu erhalten, bin allerdings gescheitert.)
Die andere Schleife koennte in etwa so aussehen, allerdings bin ich nicht weitergekommen:
Insgesamt sind es also 210 leveneTests, die durchgefuehrt werden sollen.
Fuer Vorschlaege bin ich dankbar!
Paul
ich wuerde gern die folgende for-Schleife hier in eine andere Schleife einbetten:
Code: Alles auswählen
ext.var <- 614:623
x3<-matrix(data=NA, nrow=max(ext.var), ncol=5)
for(i in ext.var){
x3[i,1] <- sd(dfcr[,i][dfcr[,81] == 5], na.rm = T)
x3[i,2] <- sd(dfcr[,i][dfcr[,81] == 10], na.rm = T)
x3[i,3] <- as.numeric(leveneTest(dfcr[,i] ~ factor(dfcr$lr))[[1]][2]) # df2
x3[i,4] <- as.numeric(leveneTest(dfcr[,i] ~ factor(dfcr$lr))[[2]][1]) # F-value
x3[i,5] <- as.numeric(leveneTest(dfcr[,i] ~ factor(dfcr$lr))[[3]][1]) # p-value
}
x3[ext.var,]
Die andere Schleife koennte in etwa so aussehen, allerdings bin ich nicht weitergekommen:
Code: Alles auswählen
ev <- 1:21
# Hier fehlt etwas?
for(j in ev) {
ext.var <- 614:623
x3<-matrix(data=NA, nrow=max(ext.var), ncol=5)
for(i in ext.var){
x3[i,1] <- sd(dfcr[,i][dfcr[,81] == 5][df[,625]==j], na.rm = T)
x3[i,2] <- sd(dfcr[,i][dfcr[,81] == 10][df[,625]==j], na.rm = T)
x3[i,3] <- as.numeric(leveneTest(dfcr[,i][df[,625]==j] ~ factor(dfcr$lr[df[,625]==j]))[[1]][2]) # df2
x3[i,4] <- as.numeric(leveneTest(dfcr[,i][df[,625]==j] ~ factor(dfcr$lr[df[,625]==j]))[[2]][1]) # F-value
x3[i,5] <- as.numeric(leveneTest(dfcr[,i][df[,625]==j] ~ factor(dfcr$lr[df[,625]==j]))[[3]][1]) # p-value
}
x3[ext.var,]
# Hier fehlt auch was?
}
Fuer Vorschlaege bin ich dankbar!
Paul