# NOT RUN {
data <- data.table::data.table(CustomerID = c(1,1,2,2,3,3),
StockCode = c("A","B","A","A","B","A"),
TotalSales = c(2,3,4,5,1,2))
RatingsMatrix <- RecomDataCreate(data,
EntityColName = "CustomerID",
ProductColName = "StockCode",
MetricColName = "TotalSales",
ReturnMatrix = TRUE)
# }
Run the code above in your browser using DataLab