R/_get.FrecuenciaCompra.R

In mbonoli/funcionesMBO:

tmp_get.FrecuenciaCompra <- function (data.clean,name)  {
  result<-table(data.clean$IdEncuestado,data.clean$IdAlternativa)
  result<-	result [,1:(ncol(result)-1)]  #quito la col de 999
  print ("Frecuencias de compra (%)")
  print(colSums(result)/sum(result)*100 )
  result
}