#Create a vector
apple<-c('red','green','yellow')
print(apple)
#get class of vector
print(class(apple))
#create a lsit
list1<-list(c(2,3,5),21.3,sin)
print(list1)
#create a matrix
M<-matrix(c('1','5','2','4','3','6'),nrow=2,ncol=3,byrow=FALSE)
print(M)
#Create an array
a<-array(c('green','yellow'),dim=c(3,3,2))
print(a)
#Create a factor
apple_colors<-c('Green','Green','Yellow','red','red','Green')