# dataframe character <- c("shrek","donkey","aladdin","simba","luke") gender <- c("ogre","donkey","human","lion","jedi") power <- c(4,2,1,3,5) size <- c(245,150,180,100,190) number <- c(26,35,13,46,8) random <- sample(50:100,5) frame <- data.frame(character,gender,power,size,number,random) frame[order(frame$power),] frame$character[frame$random>75] frame$gender[frame$character=="simba"] frame$character[frame$number>30 & frame$size<140] frame$character[frame$number<30 | frame$size<120] # vector c(-2,-1,0,1,2) seq(-2,2) x <- -2:2 c(x + 2,5) y <- rep(5,5) z <- c(rep(-1,2),rep(1,3)) c(x,y,z) x[x >= 0] # function taste <- function(c) { if (c == "spinach") { "yerk" } else if (c == "chips") { "miam" } else { "nothing to do" } } norm.frame <- function(a,b,c,d) { data <- c() for (i in seq(a)) { data <- cbind(data,rnorm(b,c,d)) } data }