Differences

This shows you the differences between two versions of the page.

--- c:data_science_introduction [2021/04/12 12:28] – hkimscil
+++ c:data_science_introduction [2021/04/12 13:04] (current) – removed hkimscil
@@ Line 1: / Line 1: @@
-====== Introduction ======
-{{:stu.class.data.csv}}
-<code>
-"수경","민기", "세민", "지원","지송", "승모", "태원", "소영"
-"scrpt_writ",
-"com_theory",
-pr",
-"adv",
-"broadcast",
-"internet",
-"vid_shoot",
-"vid_edit",
-"new_media",
-"comp_media"
-edgelist <- read.table(text="Person    Event
-                             수경
-                             Bob       picnic
-                             Sam       artshow",
-                       header=TRUE)
-edgelist <- as.matrix(edgelist)
-classtaken = matrix(0,8,10)
-edge.list = matrix (
-    c(1,1,
-,2,
-,3,
-,4,
-,9,
-,2,
-,5,
-,7,
-,8,
-,1,3,5,3,6,3,7,3,8,
-,2,4,6,4,9,4,10,
-,1,5,2,5,5,5,7,5,8,
-,2,6,3,6,4,6,7,
-,3,7,4,7,7,7,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
-</code>