ja, echt.bigben hat geschrieben: ↑Mi Jun 21, 2017 2:11 pm Ehrlich? Glaskugel? Ich habe eher den Verdacht, dass Du Algorithmen verwendest
Sonst (also mit Algorithmen) hätten wir ja auch nach 6 Monaten noch keine Antworten auf solche Fragen.
ja, echt.bigben hat geschrieben: ↑Mi Jun 21, 2017 2:11 pm Ehrlich? Glaskugel? Ich habe eher den Verdacht, dass Du Algorithmen verwendest
Code: Alles auswählen
aggregate( as.matrix(d[c(12,19,26,33,40)]) ~ Geschlecht, data=d, FUN=mean, na.action = na.pass, na.rm=TRUE)
# > aggregate( as.matrix(d[c(12,19,26,33,40)]) ~ Geschlecht, data=d, FUN=mean, na.action = na.pass, na.rm=TRUE)
# Geschlecht preVASR poVASR po3VASR po6VASR po12VASR
# 1 F 5.473684 2.767442 2.804878 3.264706 3.150000
# 2 M 4.671429 2.268293 2.911765 2.833333 2.266667
Code: Alles auswählen
df <- subset(d, Geschlecht=="F", select = c(preVASR, poVASR, po3VASR, po6VASR, po12VASR))
boxplot(values ~ ind, data=stack(df))
Code: Alles auswählen
> aggregate( as.matrix(d[c(12,19,26,33,40)]) ~ Geschlecht, data=d, FUN=mean, na.action = na.pass, na.rm=TRUE)
Geschlecht preVASR poVASR po3VASR po6VASR po12VASR
1 F 5.473684 2.767442 2.804878 3.264706 3.150000
2 M 4.671429 2.268293 2.911765 2.833333 2.266667
> df<-aggregate( as.matrix(d[c(12,19,26,33,40)]) ~ Geschlecht, data=d, FUN=mean, na.action = na.pass, na.rm=TRUE)
> dff<-t(df[-1])
> dff
[,1] [,2]
preVASR 5.473684 4.671429
poVASR 2.767442 2.268293
po3VASR 2.804878 2.911765
po6VASR 3.264706 2.833333
po12VASR 3.150000 2.266667
> colnames(dff)<-c("F","M")
> barplot(dff,beside=T)
Code: Alles auswählen
df <- aggregate( as.matrix(d[c(12,19,26,33,40)]) ~ Geschlecht, data=d, FUN=mean, na.action = na.pass, na.rm=TRUE)
barplot(t(df[-1]), beside=TRUE, names.arg=df$Geschlecht)
Code: Alles auswählen
TRUE==T
FALSE==F
T <- 0
F <- 1
TRUE==T
FALSE==F