#Temperatur Datensatz T<-read.table("http://www.trutschnig.net/Temperatur.txt",head=TRUE) head(T) summary(T) plot(T$Temp,type="l") plot(T[,2],type="l") plot(T$Temp,type="l",xlab="Monat",ylab="Temperatur",main="Mittlere monatliche Temperatur Salzburg Flughafen 1971-2000 (Quelle ZAMG)") barplot(T$Temp,main="Mittlere monatliche Temperatur Österreich 1971-2000 (Quelle ZAMG)",xlab="Monat",ylab="Temperatur") #Bankomat Datensatz A<-read.table("http://www.trutschnig.net/ATM.txt",head=TRUE) head(A) summary(A) hist(A$sum_out) A1<-subset(A,A$weekday=="Mon") A2<-subset(A,A$weekday=="Tue") A3<-subset(A,A$weekday=="Wed") A4<-subset(A,A$weekday=="Thu") A5<-subset(A,A$weekday=="Fri") A6<-subset(A,A$weekday=="Sat") A7<-subset(A,A$weekday=="Sun") hist(A7$sum_out) #ecdfs: plot(ecdf(A5$sum_out)) lines(ecdf(A7$sum_out),col="red") #population Datensatz P<-read.table("http://www.trutschnig.net/population.txt",head=TRUE,sep="\t") head(P)