#1
boolean_vec = c(TRUE,TRUE,TRUE,TRUE,TRUE,FALSE,FALSE,FALSE)

#2
numeric_vec = as.numeric(boolean_vec)
#numeric_vec

#3
is.numeric(numeric_vec)

#4
char_vec = as.character(numeric_vec)

#5
numeric_vec[5] = "5"

#6
class(numeric_vec)==class(char_vec)