Assignment #4

Load worldrecord.csv and answer the
following?

worldrecord <- read.csv(file.choose(), header=TRUE)

1. How many different types of events (e.g.
   “Mens 100m”, “Womens shotput” etc) are
   represented in the dataset

names(worldrecord)

[1] "Event"       "Type"        "Record"      "Athlete"    
[5] "Nationality" "Location"    "Year"       

2. In what year did Usain Bolt first break the
   world record for the Men’s 100m?

2008

3. Which variable tells us the record setting time
   or distance? The variable name in the data set is? What type of the variable is this?

“Record”, numerical

4. Create a subset of the dataset that contains
   only the world record cases for men’s shotput and women’s shotput

5. Create a scatter plot of the year and record shotput distance one for men and one for
   women.

plot(subset(worldrecord, Event == "Mens Shotput",select = c("Year", "Record")))

6. Find the average/mean time for each event. How many athletes have time more than
   average in each event.

mean(worldrecord$Record)

[1] 69.60396

7. Select the athlete who took most time in men’s
   100m and women’s event.

worldrecord_sub2<-worldrecord[c(2:18),c(3,4), ] 
worldrecord_sub2

worldrecord_sub3<-worldrecord[c(19:28),c(3,4), ] 
worldrecord_sub3

8. Which country won maximum times of men’s
   100m event?

worldrecord_sub2<-worldrecord[c(19:28),c(5), ] 
worldrecord_sub2

 [1] \xe6East Germany  \xe6West Germany  \xe6West Germany 
 [4] \xe6East Germany  \xe6East Germany  \xe6East Germany 
 [7] \xe6United States \xe6United States \xe6United States
[10] USA              
44 Levels: \xe6Algeria \xe6Australia ... YUG

9. How many athletes are there in each event?

tally(~Athlete, data=worldecord, margins = TRUE)

Error in tally(~Athlete, data = worldecord, margins = TRUE) : 
  could not find function "tally"

10. Which country has maximum wins?