likert=file.choose() datalikert=read.csv(likert,header=TRUE) save(datalikert,file = “datalikert.rda”) attach(datalikert) is.data.frame(likert) head(datalikert) dim(datalikert)

Cau 1

library(psych) var=cbind(Atb,Btb,Ctb,Dtb,Etb,Ftb) pairs.panels(var) ```