# NOT RUN {
## Load data :
data(adcampaign)
## Run mixture :
# }
# NOT RUN {
result_mixture<-runEM(formula="ctr~timeSlot",
var_weights="impressions",
K=2,
df=adcampaign,
col_id="id")
## Analysis of results :
plot(result_mixture[[1]],type="l") #gives you the loglikelihood evolution
# list of the estimated parameter for each cluster for each iteration :
result_mixture[[2]]
# list of the estimated parameter for each cluster for each iteration
result_mixture[[3]] #list of ids proportion in each cluster for each iteration
#list of matrices containing probability to be in cluster k for each id :
result_mixture[[4]]
# BIC value :
result_mixture[[5]]
# ICL value :
result_mixture[[6]]
# list of number fisher scoring iterations for each iteration
result_mixture[[7]]
# }
Run the code above in your browser using DataLab