I am trying to work on a recommendation system in R
.
Data Set below:
https://drive.google.com/file/d/1FVh-Xg3NBtzKgZHnDTi7IjaATW_fPmW9/view?usp=sharing
beer_data <- read.csv("beer_data.csv", stringsAsFactors = F)
library(recommenderlab)
r <- as(beer_data, "realRatingMatrix")
Now if we check the number of reviews in each object, both are not matching
nrow(beer_data) # 475984
length(getRatings(r)) # 474560
And also range of rating is not matching :
> range(beer_data_master$review_overall)
[1] 0 5
> range(getRatings(r))
[1] 0 15
I have checked with other data set too, there is no issue appearing.