차원 축소를 이용한 영화 추천하기 (SVD 설명 및 실습)

SVD 에서 조정할 수 있는 파라미터 알아보기

recommenderRegistry$get_entries(method = 'SVD')

10개의 차원으로 축소한 뒤 추천해보기

rec <- Recommender(m, method = "SVD", param=list(k = 10))
who <- 1
predict(rec, m[who,])
predict(rec, m[c(1,3),], type = 'topNList', n = 5)
as(predict(rec, m[c(1,3),], type = 'topNList', n = 5), 'list')

20개의 차원으로 축소한 뒤 추천해보기

rec <- Recommender(m, method = "SVD", param=list(k = 20))
as(predict(rec, m[c(1,3),], type = 'topNList', n = 5), 'list')