# Create a new data frame with 3 columns (name, 
# minutes and type)
# called sports with the following data:
# name should have the rows Football, Hockey, Rugby
# minutes should have the rows: 90, 70 and 80
# type: outdoor, indoor, outdoor

# Store it in an object named sports

sports <- data.frame(names = c('Football', 'Hockey', 'Rugby'),
                    minutes = c(90, 70, 80),
                    type = c('outdoor','indoor','outdoor'),
                    stringsAsFactors = FALSE
)
#sports

# Create a new data frame with a new sport 
# called Volleyball with 60 minutes 
# and type NA 

# Store it in a variable called volley
volley <- data.frame(names = 'Volleyball', minutes = 60, type = NA, 
                    stringsAsFactors = FALSE)
#volly
  
# Add volley to the sports table 
# store the object in a table called 
# sports_2

# Hint: The order matters! You should add volley 
# to the sports table so volley should be added at the end
# of the table

sports_2 = rbind(sports,volley)
#sports_2

# Store the name of the sports in a variable 
# called name_sports

name_sports <- sports_2[,1]
#name_sports

# Add row names to sports_2 with the name of
# the sports
row.names(sports_2) <- name_sports

# Remove the name column from sports_2 table
sports_2 <- sports_2[,-1]
#sports_2

# Change the type of the volleyball game 
# to "indoor"


# rewrite the sports_2 object
sports_2[4,2] = 'indoor'

# create a new vector with the following data: 
# 'FIFA', 'IHF', 'IRL', 'FIVB'

# name the vector federation 

federation = c('FIFA', 'IHF', 'IRL', 'FIVB')

# Add the federation to our sports_2 
# object - explicitly let R know that you 
# want the federation to be a character

# rewrite the sports two object 

sports_2 = cbind(sports_2,federation, stringsAsFactors=FALSE)
#sports_2

# Check the mean of the minutes of the four sports 
# store the value in a mean_minutes variable

mean_minutes <- mean(sports_2[,1])
mean_minutes