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