R Notebook

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)