학번: 이름:

아래의 각 R script들을 해석하고 그 실행결과들을 적으시오.(문제당 2점으로 해석과 실행결과 각 1점으로 채점)

x <- c(88,5,12,13); ( x <- c(x[1:3],168,x[4]) )

m <- rbind(c(1,2),c(3,4)); m+10:13

z <- c(5,12,13); z[-length(z)]

seq(from=1.1, to=2, length=10)

rep(c(5,12,13),times=3,each=2)

x<-1:10; any(x>8); all(x>0)

f <- function (x,c) {return((x+c)^2)}; f(1:3,1)

x <- c(88,NA,12,168,13); mean(x,na.rm=T)

y <- c("abc","def",NA); mode(y[3])

z<-NULL

for (i in 1:10) {if (i%%2==0) z<-c(z,i)}; z

x <- c(6,1:3,NA,12); x[x>5]; subset(x,x>5)

z <- c(5,2,-3,8); z[which(z*z>8)]

x <- c(5,2,9,12); ifelse(x>6,2*x,3*x)

x<-1:3; y<-c(1,3,4); x==y; identical(x,y)

x<-c(1,2,4); names(x)<-c("a","b","ab"); x