hd

datafile=read.csv("/Users/theanh/Downloads/Likert.csv",header = TRUE)
save(datafile,file ="datafile1.rda")
attach(datafile)
is.data.frame(datafile)

## [1] TRUE