## Erzeugung von Zahlenreihen ## 5:10 # 5,6,...,10 10:5 # 10,9,...,5 -1:2 # -1,0,1,2 seq(5,10) # Abk. fuer sequence ; seq(from=5,to=10) seq(5,10,by=0.1) # Schrittweite festsetzen rep(1:3,times=3) # Abk. fuer replicate rep(1:3,each=3) ## Logische Auswahl ## x <- 1:10 x < 5 x == 5 x != 5 # logisches Gegenteil x[ x<5 ] # Anwendung ## Ein paar Funktionen fuer Zahlenreihen ## x <- rep(1:3,each=4) length(x) # Anzahl der Elemente ?length # Hilfe zu einer Funktion aufrufen help.search("length") # Funktion zu einem Stichwort suchen sort(x) # Sortierung sort(x,decreasing=TRUE) # decreasing ist ein Argument fuer die Funktion (xs <- sample(x)) # zufaellige Ziehung von Elementen table(xs) # zufaellige Ziehung von Elementen (xs <- sample(x, replace=TRUE)) # zufaellige Ziehung von Elementen table(xs) # zufaellige Ziehung von Elementen ?sample ###################### AUFGABE ##################### # Ziehen Sie aus dem Vektor x eine repraesentative # Stichprobe mit genau 3 Elementen #################################################### ## Einfache Graphiken erzeugen ## x <- 0:10 plot(x, x^2) # Streudiagramm plot(x, x^2, type="l") # Verbindung der Punkte plot(x, x^2, pch=18, cex=3, col="red", main="Test", xlab="Var1", ylab="Var2" , xlim=c(0,20), ylim=c(0,30) ) # Ein paar optionale Argumente, # geben Sie ?par ein, um einzelne Bedeutungen nachzuschauen # Um einer bestehenden Graphik weitere Datenpunkte oder Geraden hinzu- # zuf¨ugen k¨onnen die Funktionen points() und lines() genutzt werden. plot(x, x^2) points(x, 0.1*x^2 , col=2) lines(x, 0.45*x^2, col="green") ###################### AUFGABE ##################### # Zeichnen Sie die Sinusfunktion im Bereich von -2*pi # bis 2*pi mit einem Punktabstand von 0.1. Fuegen # Sie die Cosinusfunktion in blauer Farbe hinzu. #################################################### ###################### AUFGABE ##################### # Zeichnen Sie die Standardnormalverteilung. ####################################################