2 + 2
[1] 4
x <- 2 + 2
x
[1] 4
y <- 4 + 4
a <- "human"
b <- "error"
paste(a,b)
[1] "human error"
odd_vect <- c(1.3, 3.3, 5.5, 7.7, 9.9)
c(2L, 4L, 6L, 8L, 10L) -> even_vect
ten_vect <- c(odd_vect, even_vect)
is.numeric(ten_vect)
[1] TRUE
prep_vect <- c("In")
noun_vect <- c("the Brothers Karamazov,")
sub_vect <- c("Dmitri")
verb_vect <- c("kills")
obj_vect <- c("his father")
sent_vect <- c("In",c("the Brothers Karamazov,",c("Dmitri",c("kills",c("his father")))))
sent_vect
sent_vect <- paste(prep_vect, noun_vect, sub_vect, verb_vect, obj_vect)
sent_vect
my_list <- list(even_vect, c(TRUE, FALSE), c(sent_vect), c(odd_vect))
str(my_list)
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9CjIgKyAyCmBgYApgYGB7cn0KeCA8LSAyICsgMgpgYGAKYGBge3J9CngKeSA8LSA0ICsgNApgYGAKYGBge3J9CmEgPC0gImh1bWFuIgpiIDwtICJlcnJvciIKYGBgCmBgYHtyfQpwYXN0ZShhLGIpCmBgYApgYGB7cn0Kb2RkX3ZlY3QgPC0gYygxLjMsIDMuMywgNS41LCA3LjcsIDkuOSkKYGBgCmBgYHtyfQpjKDJMLCA0TCwgNkwsIDhMLCAxMEwpIC0+IGV2ZW5fdmVjdApgYGAKYGBge3J9CnRlbl92ZWN0IDwtIGMob2RkX3ZlY3QsIGV2ZW5fdmVjdCkKYGBgCmBgYHtyfQppcy5udW1lcmljKHRlbl92ZWN0KQpgYGAKYGBge3J9CnByZXBfdmVjdCA8LSBjKCJJbiIpCm5vdW5fdmVjdCA8LSBjKCJ0aGUgQnJvdGhlcnMgS2FyYW1hem92LCIpCnN1Yl92ZWN0IDwtIGMoIkRtaXRyaSIpCnZlcmJfdmVjdCA8LSBjKCJraWxscyIpCm9ial92ZWN0IDwtIGMoImhpcyBmYXRoZXIiKQpgYGAKYGBge3J9CnNlbnRfdmVjdCA8LSBjKCJJbiIsYygidGhlIEJyb3RoZXJzIEthcmFtYXpvdiwiLGMoIkRtaXRyaSIsYygia2lsbHMiLGMoImhpcyBmYXRoZXIiKSkpKSkKYGBgCmBgYHtyfQpzZW50X3ZlY3QKc2VudF92ZWN0IDwtIHBhc3RlKHByZXBfdmVjdCwgbm91bl92ZWN0LCBzdWJfdmVjdCwgdmVyYl92ZWN0LCBvYmpfdmVjdCkKc2VudF92ZWN0Cm15X2xpc3QgPC0gbGlzdChldmVuX3ZlY3QsIGMoVFJVRSwgRkFMU0UpLCBjKHNlbnRfdmVjdCksIGMob2RkX3ZlY3QpKQpzdHIobXlfbGlzdCkKYGBgCgo=