#---- 군집분석 ------------------ mycsv <- read.csv("xAPI-Edu-Data.csv", header=TRUE) mycsv <- read.csv("C:/Users/dataanalysis/Desktop/DA/scrpt_data/xAPI-Edu-Data.csv", header=TRUE) s1 <- mycsv head(s1, 3) names(s1) # s2 <- na.omit(s2) # listwise deletion of missing # apply k-means clustering s2 <- s1[,c("raisedhands","VisITedResources", "AnnouncementsView",..