# Homework 1
# 1)Import Sleep Data and Save to Object Named "sleepdata"
setwd("/Users/lily/Desktop/r_course/assignment_1")
sleepdata<- readRDS("sleepstudydata.rds")
# 2) Check Data Type of Object
class (sleepdata)
## [1] "matrix" "array"
# 3) Convert to Data Frame Called "df"
df <- as.data.frame(sleepdata)
# 4) execute code
rownames(df) <- paste0("student",1:nrow(df))
# 5) explain what 4 did
# This changed the data frame to add student in front of the number assigned to each row
# 6) save as .csv named "sleepdata"
write.csv(df, "sleepdata.csv")
# 7) print location of the saved file
getwd()
## [1] "/Users/lily/Desktop/r_course/assignment_1"
# 8) import the csv file
sleepcsv <- read.csv("sleepdata.csv", row.names = 1)