Practice problems

Soal 1 (Membuat vektor Movie)

Movie <- c("Citizen Kane", "The Godfather", "Casablanca", "Raging Bull", "Singing in the Rain")

Soal 2 (Membuat vektor Year)

Year <- c(1941, 1972, 1942, 1980, 1952)

Soal 3 (Membuat vektor RunTime)

RunTime <- c(119, 177, 102, 129, 103)

Soal 4 (Menghitung durasi dalam jam dan menyimpannya dalam vektor RunTimeHours)

RunTimeHours <- RunTime / 60

Soal 5 (Membuat data frame MovieInfo)

MovieInfo <- data.frame(Movie, Year, RunTime)

Soal 6 (Membuat vektor Title)

Title <- c("The Secret of Monkey Island", "Indiana Jones and the Fate of Atlantis", "Day of the Tentacle", "Grim Fandango")

Soal 7 (Membuat vektor Release)

Release <- c(1990, 1992, 1993, 1998)

Soal 8 (Menghitung tahun rilis setelah pendirian LucasArts)

FoundedYear <- 1982
YearsAfterFounded <- Release - FoundedYear

9 (Membuat vektor Rank)

Rank <- c(14, 11, 6, 1)

Soal 10 (Membuat data frame AdventureGames)

AdventureGames <- data.frame(Title, Release, Rank)