data/movies.R

`movies` <-
structure(list(title = structure(c(15L, 17L, 20L, 13L, 25L, 22L, 
1L, 6L, 4L, 12L, 2L, 18L, 5L, 10L, 14L, 8L, 23L, 9L, 16L, 21L, 
26L, 24L, 7L, 19L, 3L, 11L), .Label = c("A Knight's Tale (CO)          ", 
"Along Came a Spider (PA)      ", "Amores Perros (Lions Gate)    ", 
"Angel Eyes (WB)               ", "Blow (NL)                     ", 
"Bridget Jones's Diary (MM)    ", "Castaway (20)                 ", 
"Crocodile Dundee in L.A. (PA) ", "Crouching Tiger...Dragon (SC) ", 
"Driven (WB)                   ", "Kingdom Come (FS)             ", 
"Momento (Newmarket Films)     ", "Moulin Rouge (20)             ", 
"O'Brother, Where Art... (TS)  ", "Pearl Harbor (TO)             ", 
"Save the Last Dance (PA)      ", "Shrek (DW)                    ", 
"Spy Kids (DI)                 ", "Startup.com (AR)              ", 
"The Animal (CO)               ", "The Golden Bowl (LG)          ", 
"The Mummy Returns (UN)        ", "The Tailor of Panama (CO)     ", 
"Traffic (USA)                 ", "What's the Worst that... (MGM)", 
"With a Friend Like Harry (MM) "), class = "factor"), current = c(29.6, 
28.2, 19.6, 13.7, 13, 7.8, 3.4, 2, 1.9, 1, 0.7, 0.4, 0.4, 0.3, 
0.3, 0.3, 0.3, 0.3, 0.2, 0.2, 0.2, 0.1, 0.1, 0.1, 0.1, 0.1), 
    previous = c(75.2, 55.2, NA, 0.3, NA, 19, 9.1, 4.2, 6.2, 
    1.9, 2.1, 1.3, 1.3, 1.2, 0.3, 1, 0.7, 0.5, 0.5, 0.5, 0.4, 
    0.4, 0.2, 0.2, 0.3, 0.4), gross = c(118.9, 148.4, 19.6, 14.4, 
    13, 181.2, 49.4, 65.4, 21.7, 15.8, 71.8, 105.9, 52.2, 31.8, 
    44.2, 24.3, 12.9, 127.2, 90.2, 1.5, 1.8, 123.8, 233.2, 0.5, 
    4.8, 22.7)), .Names = c("title", "current", "previous", "gross"
), class = "data.frame", row.names = c("1", "2", "3", "4", "5", 
"6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", 
"17", "18", "19", "20", "21", "22", "23", "24", "25", "26"))
jverzani/UsingR documentation built on Aug. 3, 2020, 11:57 a.m.