a <- c('apple','orange')   # create a vector containing "apple" and "orange"
length(a)