Some questions ask for all the correct answers.
y <- 3 x <- 5 x -> y print c(x, y, 7)a. [1] 3 3 7 b. [1] 3 5 7 c. [1] 5 3 7 d. [1] 5 5 7
n <- 4 n <- n[-1] print(n)a. [1] -1 b. [1] 4 c. NULL d. numeric(0)
a <- "Apple" b <- "Microsoft" c <- "Sun" print paste(a, b, c)a. [1] AppleMicrosoftSun b. [1] "AppleMicrosoftSun"
a. if (length(x) > 5) b. if length(x) > 5 {
print("Yes") print("Yes")
}
c. if (length(x) > 5) d. if length(x) > 5
print "Yes" print("Yes")
end
n <- 15 square <- function(n) n^2 print(square)a. Error: Missing { b. 0
matrix(1:6, 2, 3) a. [,1] [,2] [,3] b. [,1] [,2] [,3] [1,] 1 3 5 [1,] 1 2 3 [2,] 2 4 6 [2,] 4 5 6 c. [,1] [,2] d. [,1] [,2] [1,] 1 4 [1,] 1 2 [2,] 2 5 [2,] 3 4 [3,] 3 6 [3,] 5 6
$days [1] Mon Tue Wed Thu Fri Levels: Fri Mon Thu Tue Wed $cars [1] 1 3 6 4 9 $trucks [1] 2 5 4 5 12 $suvs [1] 4 4 6 6 16a. autos[2] b. autos$[[2]] c. autos@cars d. autos$cars
days,cars,trucks,suvs Mon,1,2,4 Tue,3,5,4 Wed,6,4,6 Thu,4,5,6 Fri,9,12,16a. auto >- read.csv("autosales2.txt")
pnorm(1, mean=0, sd=1)a. [1] 0.5000000 b. [1] 0.6826895 c. [1] 0.8413447 d. [1] 0.9772499
plot(runif(200), runif(200))
u <- rnorm(500) v <- rnorm(500) w <- 0.8 * u + 0.6 * v x <- 4 * u + 20 y <- 5 * w + 30a. 0 b. 9 c. 16 d. 25