SVD Rscript
2016-06-10 22:22:46
컴퓨터
WARN: Some values are hard coded!!
Dimensionality Reduction from 7395 to 100
Is it reasonable ??
library(lsa)
print("lsa loaded")
TD <- read.csv(file="lyrics.spring.tdm",head=FALSE,sep=",")
print("csv loaded")
TD.svd=svd(TD)
print("svd finished")
rtd=TD.svd$u[,1:100] %*% diag(TD.svd$d[1:100]) %*% t(TD.svd$v[,1:100])
print("svd multiplication finished")
i=0;while(i < 7395){i=i+1; write(cosine(rtd[,1:1],rtd[,i:i]),file="lyrics.spring.csv", append=TRUE)}
print("all done")
▼ more