"수경","민기", "세민", "지원","지송", "승모", "태원", "소영"
1 "scrpt_writ", 
2 "com_theory", 
3 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,
    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