код рекомендации по популярности фильма

Question

Я сейчас изучаю R, а сейчас занимаюсь проектом по алгоритму рекомендации фильмов.Я использовал данные movielense 100k с библиотекой Recommenderlab и использую эти руководства.https://mitxpro.mit.edu/asset-v1%3AMITProfessionalX+DSx+2017_T1+type@asset+block@Module4_CS1_Movies.pdf https://cran.r -project.org / web / packages / Recommenderlab / vignettes / Recommenderlab.pdf

Теперь я вычислил разреженность и разделил данные на поезда итестовые данные.И я хочу сделать код рекомендации по популярности.Мой код здесь:

install.packages("SnowballC")
install.packages("class")
install.packages("dbscan")
install.packages("proxy")
install.packages("recommenderlab")
install.packages("dplyr")
install.packages("tm")
install.packages("reshape2")

library(recommenderlab)
library(dplyr) 
library(tm)
library(SnowballC)
library(class)
library(dbscan)
library(proxy)
library(reshape2)

#read data
data<- read.table('C:/Users/ginny/OneDrive/Documents/2018_1/dataanalytics/실습3/ml-100k/u.data')

#####raw data to matrix#####
data.frame2matrix = function(data, rowtitle, coltitle, datatitle, 
                         rowdecreasing = FALSE, coldecreasing = FALSE,
                         default_value = NA) {

# check, whether titles exist as columns names in the data.frame data
if ( (!(rowtitle%in%names(data))) 
     || (!(coltitle%in%names(data))) 
     || (!(datatitle%in%names(data))) ) {
  stop('data.frame2matrix: bad row-, col-, or datatitle.')
}

# get number of rows in data
ndata = dim(data)[1]

# extract rownames and colnames for the matrix from the data.frame
rownames = sort(unique(data[[rowtitle]]), decreasing = rowdecreasing)
nrows = length(rownames)
colnames = sort(unique(data[[coltitle]]), decreasing = coldecreasing)
ncols = length(colnames)

# initialize the matrix
out_matrix = matrix(NA, 
                    nrow = nrows, ncol = ncols,
                    dimnames=list(rownames, colnames))

# iterate rows of data
for (i1 in 1:ndata) {
  # get matrix-row and matrix-column indices for the current data-row
  iR = which(rownames==data[[rowtitle]][i1])
  iC = which(colnames==data[[coltitle]][i1])

  # throw an error if the matrix entry (iR,iC) is already filled.
  if (!is.na(out_matrix[iR, iC])) stop('data.frame2matrix: double entry in data.frame')
out_matrix[iR, iC] = data[[datatitle]][i1]
 }

# set empty matrix entries to the default value
out_matrix[is.na(out_matrix)] = default_value

 # return matrix
return(out_matrix)

}

#data 열 별로 이름 지정('' 안은 필요에 따라 변경 가능)
colnames(data)<-c('user_id','item_id','rating','timestamp')

#raw 데이터를 matrix로 변환
pre_data = data.frame2matrix(data, 'user_id', 'item_id', 'rating')

#matrix를 realratingmatrix로 변환
target_data<- as(as(pre_data, "matrix"), "realRatingMatrix")
data=data[,-which(names(data) %in% c("timestamp"))]
data
str(data)
summary(data)
hist(data$rating)
write.csv(data,"C:/Users/ginny/OneDrive/Documents/2018_1/dataanalytics/실습 
3/u.csv")
Number_Ratings=nrow(data)
Number_Ratings
Number_Movies=length(unique(data$item_id))
Number_Movies
Number_Users=length(unique(data$user_id))
Number_Users
data1=data[data$user_id %in% names(table(data$user_id)) 
[table(data$user_id)>50],]
Number_Ratings1=nrow(data1)
Number_Movies1=length(unique(data1$item_id))
Number_Users1=length(unique(data1$user_id))
sparsity=((Number_Ratings1)*3*5*100)/((Number_Movies1)*(Number_Users1))
sparsity

install.packages("caTools")
library(caTools)
set.seed(10)
sample=sample.split(data1$rating, SplitRatio=0.75)
train=subset(data1, sample==TRUE)
test=subset(data1, sample==FALSE)
data2<-as.data.frame(data1)
data2

#matrix to realratingmatrix
target_data2<- as(as(pre_data2, "matrix"), "realRatingMatrix")
recommender_models<-recommenderRegistry$get_entry(dataType = 
"realRatingMatrix")
recomm_model <- Recommender(data2$rating, method = "POPULAR")

Я использовал data2 realRatingMatrix, но когда я запускаю последнюю строку, ошибка, как это происходит:

Ошибка в (функция (классы, fdef, mtable): невозможно найти унаследованный метод для функции 'Recommender' для подписи '' integer ''

Кто-нибудь может мне помочь, что с ним не так?