Displaying 2 results from an estimated 2 matches for "r_score".
Did you mean:
p_score
2017 Oct 05
0
RFM Analysis Help
...gt; occurences = as.data.frame(occurences)
> occurences = occurences[order(-occurences$Freq),]
>
> r <-c(30,60,90)
> f <-c(2,5,8)
> m <-c(10,20,30)
>
> getScoreWithBreaks <- function(df,r,f,m) {
>
> ## scoring the Recency
> len = length(r)
> R_Score <- c(rep(1,length(df[,1])))
> df <- cbind(df,R_Score)
> for(i in 1:len){
> if(i == 1){
> p1=0
> }else{
> p1=r[i-1]
> }
> p2=r[i]
>
> if(dim(df[p1<df$Recency & df$Recency<=p2,])[1]>0) df[p1<df$Recency &a...
2017 Oct 06
3
Help RFM analysis in R (i want a code where i can define my own breaks instead of system defined breaks used in auto_RFM package)
...ccurences = table(unlist(df$user_id))*
*occurences = as.data.frame(occurences)*
*occurences = occurences[order(-occurences$Freq),]*
* r <-c(30,60,90)*
* f <-c(2,5,8)*
* m <-c(10,20,30)*
* getScoreWithBreaks <- function(df,r,f,m) {*
* ## scoring the Recency*
* len = length(r)*
* R_Score <- c(rep(1,length(df[,1])))*
* df <- cbind(df,R_Score)*
* for(i in 1:len){*
* if(i == 1){*
* p1=0*
* }else{*
* p1=r[i-1]*
* }*
* p2=r[i]*
* if(dim(df[p1<df$Recency & df$Recency<=p2,])[1]>0) df[p1<df$Recency &
df$Recency<=p2,]$R_Score...