Lab01

getwd()

## [1] "/Users/destineybalde"

setwd("/Users/destineybalde")

##Q1. Create a vector of 5 of your favorite albums, books, or films.

c_book<-c("OneDayYou'llLeaveMe","SevenHusbandsofEvelynHugo","AsGoodAsDead","AManCalledOve","SheAndI")

##Q2 Create another vector of the writers corresponding to the works in (1)

c_author<-c("DebraFlores","TaylorReid","HollyJackson","FredrikBackman","HannahKing")

##Q3 Create another vector corresponding to the years those works were produced

c_year<-c(2020,2017,2022,2012,2022)

##Q4 Combine the vectors into a dataframe, with appropriate column labels.

dataframe_EDM<-data.frame(Book=c_book,Author=c_author,Year=c_year) 

##Q5 Call the dataframe to produce it in your output.

dataframe_EDM

##                        Book         Author Year
## 1       OneDayYou'llLeaveMe    DebraFlores 2020
## 2 SevenHusbandsofEvelynHugo     TaylorReid 2017
## 3              AsGoodAsDead   HollyJackson 2022
## 4             AManCalledOve FredrikBackman 2012
## 5                   SheAndI     HannahKing 2022

##Q6 Call just the ‘year’ column to produce it in your output.

dataframe_EDM[,3] 

## [1] 2020 2017 2022 2012 2022

##Q7 Call just the fourth row to produce it in your output

dataframe_EDM[4,] 

##            Book         Author Year
## 4 AManCalledOve FredrikBackman 2012