WPA10

Q0

movies.errors <- read.table(file = "http://nathanieldphillips.com/wp-content/uploads/2016/01/movies_errors.txt",
                      header = T,
                      sep = "\t",
                      stringsAsFactors = F)

Q1 A

names(movies.errors)[1] <- "name"
names(movies.errors)[2] <- "boxoffice"
names(movies.errors)[3] <- "dvd"
names(movies.errors)[4] <- "budget"
names(movies.errors)[5] <- "rating"
names(movies.errors)[6] <- "genre"
names(movies.errors)[7] <- "time"
names(movies.errors)[8] <- "year"

Q2

summary(movies.errors$bboxoffice)

## Length  Class   Mode 
##      0   NULL   NULL

summary(movies.errors$bdvd)

## Length  Class   Mode 
##      0   NULL   NULL

summary(movies.errors$budget)

##      Min.   1st Qu.    Median      Mean   3rd Qu.      Max. 
## 0.000e+00 0.000e+00 1.200e+07 1.882e+21 3.925e+07 9.770e+23

table(movies.errors$rating)

## 
##        13         g         G   General        GP     NC-17 Not Rated 
##       452        58        46        54         1         5       196 
##        PG     PG-13      PG13         R         X 
##       699       457       462      1489         3

table(movies.errors$genre)

## 
##              action              Action           Adventure 
##                   1                 691                 485 
##        Black Comedy               Comdy              comedy 
##                  33                   1                   2 
##              Comedy Concert/Performance         Documentary 
##                1208                  14                  63 
##               drama               Drama              Horror 
##                   4                1083                 299 
##     Multiple Genres             musical             Musical 
##                   2                   2                  77 
##             Reality             REALITY     Romantic Comedy 
##                   2                   2                 248 
##     ROMANTIC COMEDY   Thriller/Suspense             Western 
##                   3                 427                  38

summary(movies.errors$time)

##    Length     Class      Mode 
##      5000 character character

summary(movies.errors$year)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##      17    1991    2002    2015    2009    3997

changing

movies.errors$sequel <- as.numeric(movies.errors$sequel)

## Warning: NAs introduced by coercion

movies.errors$rating <- as.character(movies.errors$rating)