c:data_science_introduction
This is an old revision of the document!
Introduction
classtaken = matrix(0,8,10) edge.list = matrix ( c(1,1,1,2,1,3,1,4,1,9, 2,2,2,5,2,7,2,8, 3,1,3,5,3,6,3,7,3,8, 4,2,4,6,4,9,4,10, 5,1,5,2,5,5,5,7,5,8, 6,2,6,3,6,4,6,7, 7,3,7,4,7,7,7,8, 8,1,8,2,8,6,8,9,8,10), byrow=T, nrow=36, ncol=2) edge.list # 2 x 36 data classtaken[edge.list] = 1 classtaken # classtaken 데이터 확인 rownames(classtaken) <- c("수경","민기", "세민", "지원","지송", "승모", "태원", "소영") colnames(classtaken) <- c("script_writing", "comm_theory", "pub_rel", "advertising", "broadc","internet","video_shooting", "film_edit", "new_media", "comp_med_comm") classtaken c <- classtaken tc <- t(classtaken) stu <- c %*% tc class <- tc %*% c stu class
c/data_science_introduction.1618194281.txt.gz · Last modified: 2021/04/12 11:24 by hkimscil