# NOT RUN {
# Create an Interval-Data object containing the intervals of loan data
# (from the Kaggle Data Science platform) aggregated by loan purpose
LbyPIdt <- IData(LoansbyPurpose_minmaxDt,
VarNames=c("ln-inc","ln-revolbal","open-acc","total-acc"))
print(LbyPIdt)
# }
# NOT RUN {
#Fit homocedastic Gaussian mixtures with up to four components
mclustres <- Idtmclust(LbyPIdt,G=1:4)
print(mclustres)
#Display the results of the best mixture according to the BIC
summary(mclustres,parameters=TRUE,classification=TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab