Code: Alles auswählen
#2 stichproben:
MG_BP<-c(760,340,3137,900,3320,1682,1470,1084,2880,850,70,1390,235,2235)
MG_noBP<-c(48,722,852,1685,1385,1392,2530,1709,1980,3420,3420,3540,4080,4205)
#2 mittelwerte und standarderror:
m2=c(mean(MG_BP), mean(MG_noBP))
se2=c(sd(MG_BP)/sqrt(length(MG_BP)),sd(MG_noBP)/sqrt(length(MG_noBP)))
#der plot damit sie nebeneinander sind:
plot(jitter(rep(c(0,1), each=14)),c(MG_BP, MG_noBP),axes=FALSE,xlab="", ylab="")
box()
axis(side=1, at=0:1, labels=c("backpack", "no backpack"))
axis(side=2, at=seq(0,4500,500))
points(c(0,1), m2, pch=15, col="red")
arrows(x0=c(0,1), y0=m2-se2, y1=m2+se2, code=3, angle=90, length=.15)
also zum Bsp. den ersten Wert von MG_BP (760) mit dem ersten von MG_noBP (48) usw.
type='b' verbiindet die nur nacheinander.
hab es auch mit einer matrix für die beiden versucht, aber das problem ist glaub ich das ich die punkte im plot ja als ein vektor mach und jitter als anderen.
Vielleicht kann mir auch jemand sagen, wie ich die Daten genauso darstelle aber ohne jitter....also nebeneinander!
Danke schonmal....ist mein erster foreneintrag, da ich immer denke das dauert so ewig mit antwort das es dann zu spät ist...also mal sehn