Q1

?replications rep(“football”, “10”) rep(“kick”, “20”) rep(c(“football”, “kick”), c(“10”,“20”)) > rep(“football”, “10”) [1] “football” “football” “football” “football” “football” “football” [7] “football” “football” “football” “football” rep(“kick”, “20”) [1] “kick” “kick” “kick” “kick” “kick” “kick” “kick” “kick” “kick” [10] “kick” “kick” “kick” “kick” “kick” “kick” “kick” “kick” “kick” [19] “kick” “kick” > rep(c(“football”,“kick”), c(10, 20)) [1] “football” “football” “football” “football” “football” “football” [7] “football” “football” “football” “football” “kick” “kick”
[13] “kick” “kick” “kick” “kick” “kick” “kick”
[19] “kick” “kick” “kick” “kick” “kick” “kick”
[25] “kick” “kick” “kick” “kick” “kick” “kick”

Q2

?seq seq(10, 30) > ?seq > seq(10, 30 by = 20)

Q3

1:10 %in% c(1,3,5,9) sym(c(“c”, “ab”, “B”, “bba”, “NA”, “@”, ” bla”,“Ba”, “%”) letters <- LETTERS sym[sym %in% LETTERS] > symc(“c”,“ab”,“B”,“bba”,“NA”,“@”,“bla”,“Ba”,“%”) > sym(c(“c”, “ab”, “B”, “bba”, “NA”, “@”, ” bla”,“Ba”, “%”) + sym[sym %in% LETTERS]

Q4

a <- c(“dog”,“cat”,“duck”) b <- c(“dog”,“puppy”,“pet”,“animal”) match(a,b) match(b,a) a[a %in% b]