13 1 + 2 1 - 2 4 * 5 4 / 5 4^2 exp(1) log(1) cos(0) log(exp(0)) exp(cos(log(1))) x <- 25 x y <- x + 1 y x*y z <- x/y z ( z <- x/y ) ALTER <- c(21, 24, 28) ALTER Geschlecht <- c("männlich", "weiblich") Geschlecht ALTER <- c(22, ALTER, 39) ALTER length(ALTER) rev(ALTER) mean(ALTER) sd(ALTER) ALTER[2] ALTER[c(1,2,4)] ALTER[1:3] (x <- 1:50) (x <- 10:1) u <- 3:5 ALTER[u] ALTER ALTER[3] <- 42 ALTER ALTER[-3] ALTER[-u] ALTER[-(2:4)] GEWICHT <- c(56, 63, 80, 49, 75) GRÖSSE <- c(1.64, 1.73, 1.85, 1.6, 1.81) X <- cbind(ALTER, GEWICHT, GRÖSSE) X rbind(ALTER, GEWICHT, GRÖSSE) X[2, 3] X[u, 1:2] X[3,] colnames(X) namen <- c("Gerda", "Karin", "Hans", "Doris", "Ludwig") rownames(X) <- namen X X["Doris", "GEWICHT"] X["Doris", ] dim(X) ncol(X) nrow(X) SEX <- c("weiblich", "weiblich", "männlich", "weiblich", "männlich") gewichtsdaten <- data.frame(SEX, X) gewichtsdaten gewichtsdaten["Doris", ] gewichtsdaten[2,3] gewichtsdaten[,4] barplot(GRÖSSE) plot(GRÖSSE, GEWICHT) x <- 1:100 y <- log(x) plot(x, y)