3
Umweltsystemmodellierung (Subject) / Termin 1 Hausaufgaben (Lesson)
- 1. Erzeugen sie mit dem Befehl sample einen Vektor mit 50 Zufallszahlen von 1 bis 10 (Ziehen mit Zurücklegen). a) Wie oft kommt in diesem Vektor die Zahl 3 vor? b) Wie viele Elemente des Vektors sind ungerade und größer als fünf? Welche Zahlen sind das? # Erzeugen sie mit dem Befehl sample einen Vektor mit 50 Zufallszahlen von 1 bis 10 (Ziehen mit Zurücklegen).randomsample <- sample(1:10, 50, replace=TRUE) # Wie oft kommt in diesem Vektor die Zahl 3 vor?length(which(randomsample==3)) # Wie viele Elemente des Vektors sind ungerade und größer als fünf?length(which(((randomsample %% 2) != 0) & (randomsample > 5))) # Welche Zahlen sind das?randomsample[which(((randomsample %% 2) != 0) & (randomsample > 5))]
- 2. Erzeugen Sie unter Zuhilfenahme des Befehls runif(n=25, min=0, max=1) eine Matrix mit 5x5 Zellen, die Zufallszahlen zwischen 0 und 1 enthält. a) Ersetzen Sie die Werte der inneren 3x3 Zellen der Matrix mit Nullen (möglichst mit nur einer Zeile Code). b) Ersetzen Sie die erste Zeile der Matrix mit der Folge 2, 5, 8, 11, 14 (unter Benutzung des Befehls seq) # Erzeugen Sie unter Zuhilfenahme des Befehls runif(n=25, min=0, max=1) eine Matrix mit 5x5 Zellen, die Zufallszahlen zwischen 0 und 1 enthält.matrandom <- matrix(runif(n=25, min=0, max=1), nrow=5, ncol=5) # Ersetzen Sie die Werte der inneren 3x3 Zellen der Matrix mit Nullen (möglichst mit nur einer Zeile Code)matrandom[2:4, 2:4] <- 0 # Ersetzen Sie die erste Zeile der Matrix mit der Folge 2, 5, 8, 11, 14 (unter Benutzung des Befehls "seq")matrandom[1, ] <- seq(2, 14, 3)
- 3. Erzeugen Sie eine Matrix mit fünf Spalten und vier Zeilen, die die Zahlen von 1 bis 20 enthält. Löschen Sie die dritte Spalte. Ersetzen Sie die zweite Spalte der neuen Matrix durch Nullen. Hängen Sie eine weitere Spalte mit den Buchstaben a bis d an die Matrix an. Was verändert sich dadurch (außer der Größe der Matrix)? # Erzeugen Sie eine Matrix mit fünf Spalten und vier Zeilen, die die Zahlen von 1 bis 20 enthält.mat4x5 <- matrix(1:20, nrow=4, ncol=5) # Löschen Sie die dritte Spalte. mat4x5 <- mat4x5[, -3] # Ersetzen Sie die zweite Spalte der neuen Matrix durch Nullen.mat4x5[, 2] <- rep(0, 4) # Hängen Sie eine weitere Spalte mit den Buchstaben a bis d an die Matrix an.mat4x5 <- cbind(mat4x5, letters[1:4]) # Was verändert sich dadurch (auÃer der Größe der Matrix)? Der Datentyp (mode) welchselt von "numeric" zu "character":mode(mat4x5)