c:data_science_introduction
Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revision | |||
c:data_science_introduction [2021/04/12 13:03] – hkimscil | c:data_science_introduction [2021/04/12 13:04] (current) – removed hkimscil | ||
---|---|---|---|
Line 1: | Line 1: | ||
- | ====== Introduction ====== | ||
- | {{: | ||
- | |||
- | < | ||
- | classtaken = matrix(0, | ||
- | edge.list = matrix ( | ||
- | c(1,1, | ||
- | 1,2, | ||
- | 1,3, | ||
- | 1,4, | ||
- | 1,9, | ||
- | 2,2, | ||
- | 2,5, | ||
- | 2,7, | ||
- | 2,8, | ||
- | 3, | ||
- | 4, | ||
- | 5, | ||
- | 6, | ||
- | 7, | ||
- | 8, | ||
- | edge.list | ||
- | classtaken[edge.list] = 1 | ||
- | classtaken # classtaken 데이터 확인 | ||
- | rownames(classtaken) <- c(" | ||
- | " | ||
- | " | ||
- | colnames(classtaken) <- c(" | ||
- | " | ||
- | " | ||
- | classtaken | ||
- | |||
- | c <- classtaken | ||
- | tc <- t(classtaken) | ||
- | |||
- | stu <- c %*% tc | ||
- | class <- tc %*% c | ||
- | |||
- | stu | ||
- | class | ||
- | </ | ||