Ich hätte doch nochmal eine Frage
ich soll noch das Monatsmittel als Punkt in den Boxpot einfügen, dass habe ich auch soweit hinbekommen.
Als letzte Aufgabe sollen nun alle Monate paarweise miteinander verglichen werden, dazu die Aufgabe:
Vergleichen Sie nun jeweils paarweise alle Monate miteinander. Führen Sie für jeden Paar-Vergleich mit Hilfe des Wilcoxon-Mann_Whitney Rangsummentests einen Signifikanztest auf Gleichheit durch mit dem Siknifikanzniveau 5%. Für welche Paar-Vergleiche lässt sich die Null-Hypothese: „Die beiden Monate unterscheiden sich nicht“ ablehnen. Fassen Sie die Ergebnisse dieser Signifikanztests in einer übersichtlichen Tabelle zusammen, in der Sie kennzeichnen, ob sich die jeweils miteinander verglichenen Monate signifikant voneinander unterscheiden oder nicht.
Das Programm läuft allerdings nicht ganz rund, wenn ich z.B. eine Schleife nehme,dann werde nur noch nie Wahrscheinlichkeiten gespeichert:(
Vllt sieht ja jemand wo das Problem liegt.
Hier mein Programm:
Daten<-read.table(file="Brocken_Gruppe_02.txt",header=T,dec=".",sep="",strip.white=T)
Monat<- Daten[,2]
Tag<-Daten[,3]
Lufttemperatur<-Daten[,4]
d<-data.frame(Monat,Tag,Lufttemperatur)
#Schleife für Mittelwerte der Lufttemperatur
MoMi <- numeric(12)
for (i in 1:12) {
MoMi
<- mean(subset(Daten, Monat==i)$LUFTTEMPERATUR)
}
#
#
jpeg(filename="Aufgabe4_Boxplot_.jpg",width=960, height=960, units = "px", pointsize=14, quality=100, bg="white",res=144)
#
boxplot(Lufttemperatur~Monat,range=1.5,main="Luftemperaturen am Brocken im Jahr 2015", xlab="Monat",ylab="Temperatur in °C",ylim=c(-10,25),las=1)
points(c(MoMi),col="blue",pch=19)
#
legend("topleft",legend=c("Mittelwert"),col="blue",pch=19)
#
dev.off()
#
#
# Wenn ich die Schleife dazu nehme speichert er nur noch die Wahrscheinlichkeit 
#MoVe<-numeric(12)
#for (j in 1:11){
d.x<-subset(Daten, Monat==1)$LUFTTEMPERATUR
d.y<-subset(Daten, Monat==1+1)$LUFTTEMPERATUR
MoVe<-(wilcox.test(d.x,d.y,exact=F,alternative="two.sided",conf.int=T))
#}
#
#
write.table(format(MoVe,digits=3,nsmall=2,width=6),file="Aufgabe4_Signifikanz_t",quote=F,sep=" ",row.name=F)
