# Create a vector.
apple <- c('geeks', 'for', "benefit")
print(geeks)
  
# Get the class of the vector.
print(class(geeks))

"geeks" "for" "benefit"
     "character"

# Create a list.
list1 <- list(c(4, 5, 6), 22.7, cos)
  
# Print the list.
print(list1)

[[1]]
[1] 4, 5, 6

[[2]]
[1] 22.7

[[3]]
function (x)  .Primitive("cos")

# Create a matrix.
S = matrix(c('a', 'b', 'c', 'd', 'e', 'f'), 
           numberOfRow = 2, numberOfCol = 3, 
           byRow = TRUE)
print(M)

    [, 1] [, 2] [, 3]
[1, ] "a"  "b"  "c" 
[2, ] "d"  "e"  "f"

# Create an array.
a <- array(c('grapes', 'mango'), dim = c(3, 3, 2))
print(a)

,, 1

     [, 1]       [, 2]     [, 3]    
[1, ] "grapes" "mango"   "grapes" 
[2, ] "mango"  "grapes"  "mango"
[3, ] "grapes" "mango"   "grapes",, 2

     [, 1]       [, 2]      [, 3]    
[1, ] "mango"  "grapes"  "mango"
[2, ] "grapes" "mango"   "grapes" 
[3, ] "mango"  "grapes"  "mango" 

# Create a vector
colors <- c('green', 'green', 'yellow', 
            'red', 'red', 'red', 'green')
  
# Create a factor object.
factor <- factor(colors)
  
# Print the factor.
print(factor)
print(nlevels(factor))

[1] green  green  yellow red    red    red    green 
Levels: green red yellow
[1] 3

# Create the data frame.
employee <- data.frame(
   gender = c("Male", "Male", "Female"), 
   height = c(152, 171.5, 165), 
   weight = c(81, 93, 78),
   Age = c(42, 38, 26)
)
print(employee)

gender height weight Age
1   Male  152.0     81  42
2   Male  171.5     93  38
3 Female  165.0     78  26