objectCF_r <- CFbuilder(Data = movies[1:500,], Datatype = "ratings",
similarity = "pearson")
dim(objectCF_r$MU)
colnames(objectCF_r$MU) #movies Id
rownames(objectCF_r$MU) #users Id
dim(objectCF_r$SU)
dim(objectCF_r$SI)
objectCF_r$averages_u
hist(objectCF_r$averages_u)
objectCF_r$averages_i
hist(objectCF_r$averages_i)
objectCF_r$n_aval_u
summary(objectCF_r$n_aval_u)
barplot(table(objectCF_r$n_aval_u))
objectCF_r$n_aval_i
summary(objectCF_r$n_aval_i)
barplot(table(objectCF_r$n_aval_i))
objectCF_r$addnewuser(Id_u = "newuser1",
Ids_i = "The Hunger Games: Catching Fire", r = 5)
rownames(objectCF_r$MU) #users Id
objectCF_r$n_aval_u["newuser1"]
objectCF_r$averages_u["newuser1"]
objectCF_r$addnewuser(Id_u = "newuser2",
Ids_i = c("Frozen","Her","Iron Man 3"),r = c(2,4,3))
rownames(objectCF_r$MU) #users Id
objectCF_r$n_aval_u["newuser2"]
objectCF_r$averages_u["newuser2"]
objectCF_r$addnewuser(Id_u = list("newuser3","newuser4"),
Ids_i = list(c("Lincoln","Monsters University","The Lego Movie","Frozen"),
c("The Wolverine","The Lego Movie")),r = list(c(1,4,5,4),c(4,5)))
rownames(objectCF_r$MU) #users Id
objectCF_r$n_aval_u[c("newuser3","newuser4")]
objectCF_r$averages_u[c("newuser3","newuser4")]
objectCF_r$newrating(Id_u = list("newuser1","newuser1","newuser2","newuser4"),
Id_i = list("The Lego Movie","Wreck-It Ralph","Fast & Furious 6",
"12 Years a Slave"),r = list(4,5,4,2))
objectCF_r$n_aval_u[c("newuser1","newuser2","newuser3","newuser4")]
objectCF_r$averages_u[c("newuser1","newuser2","newuser3","newuser4")]
objectCF_r$addnewitem(Id_i = "Oppenheimer",
Ids_u = c("newuser1","newuser2","newuser3","newuser4","1","2","4","6","10",
"11","20","32"),r = c(1,2,3,1,5,4,5,4,1,3,5,4))
colnames(objectCF_r$MU)
objectCF_r$n_aval_i["Oppenheimer"]
objectCF_r$averages_i["Oppenheimer"]
objectCF_c <- CFbuilder(Data = movies[1:500,-3], Datatype = "consumption",
similarity = "jaccard")
dim(objectCF_c$MU)
colnames(objectCF_c$MU) #movies Id
rownames(objectCF_c$MU) #users Id
dim(objectCF_c$SU)
dim(objectCF_c$SI)
objectCF_c$averages_u
objectCF_c$averages_i
objectCF_c$n_aval_u
summary(objectCF_c$n_aval_u)
barplot(table(objectCF_c$n_aval_u))
objectCF_c$n_aval_i
summary(objectCF_c$n_aval_i)
barplot(table(objectCF_c$n_aval_i))
objectCF_c$addnewuser(Id_u = "newuser1",
Ids_i = "The Hunger Games: Catching Fire")
rownames(objectCF_c$MU) #users Id
objectCF_c$n_aval_u["newuser1"]
objectCF_c$addnewuser(Id_u = "newuser2",
Ids_i = c("Frozen","Her","Iron Man 3"))
rownames(objectCF_c$MU) #users Id
objectCF_c$n_aval_u["newuser2"]
objectCF_c$addnewuser(Id_u = list("newuser3","newuser4"),Ids_i = list(
c("Lincoln","Monsters University","The Lego Movie","Frozen"),
c("The Wolverine","The Lego Movie")))
rownames(objectCF_c$MU)
objectCF_c$n_aval_u[c("newuser3","newuser4")]
objectCF_c$MU["newuser1","The Lego Movie"]
objectCF_c$newrating(Id_u = list("newuser1","newuser1","newuser2","newuser4"),
Id_i = list("The Lego Movie","Wreck-It Ralph","Fast & Furious 6",
"12 Years a Slave"))
objectCF_c$n_aval_u[c("newuser1","newuser2","newuser3","newuser4")]
objectCF_c$averages_u[c("newuser1","newuser2","newuser3","newuser4")]
objectCF_c$addnewitem(Id_i = "Oppenheimer",
Ids_u = c("newuser1","newuser2","newuser3","newuser4","1","2","4","6","10",
"11","20","32"),r = c(1,2,3,1,5,4,5,4,1,3,5,4))
colnames(objectCF_c$MU)
objectCF_c$n_aval_i["Oppenheimer"]
objectCF_c$averages_i["Oppenheimer"]
Run the code above in your browser using DataLab