Displaying 2 results from an estimated 2 matches for "m_score".
Did you mean:
p_score
2017 Oct 05
0
RFM Analysis Help
...;df$Frequency & df$Frequency<=p2,])[1]>0)
> df[p1<df$Frequency & df$Frequency<=p2,]$F_Score = i
> }
> if(dim(df[f[len]<df$Frequency,])[1]>0) df[f[len]<df$Frequency,]$F_Score =
> len+1
>
> ## scoring the Monetary
> len = length(m)
> M_Score <- c(rep(1,length(df[,1])))
> df <- cbind(df,M_Score)
> for(i in 1:len){
> if(i == 1){
> p1=0
> }else{
> p1=m[i-1]
> }
> p2=m[i]
>
> if(dim(df[p1<df$Monetary & df$Monetary<=p2,])[1]>0) df[p1<df$Monetary...
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)
...=f[i]*
* if(dim(df[p1<df$Frequency & df$Frequency<=p2,])[1]>0)
df[p1<df$Frequency & df$Frequency<=p2,]$F_Score = i*
* }*
* if(dim(df[f[len]<df$Frequency,])[1]>0) df[f[len]<df$Frequency,]$F_Score
= len+1*
* ## scoring the Monetary*
* len = length(m)*
* M_Score <- c(rep(1,length(df[,1])))*
* df <- cbind(df,M_Score)*
* for(i in 1:len){*
* if(i == 1){*
* p1=0*
* }else{*
* p1=m[i-1]*
* }*
* p2=m[i]*
* if(dim(df[p1<df$Monetary & df$Monetary<=p2,])[1]>0) df[p1<df$Monetary
& df$Monetary<=p2,]$M_S...