data(car)
ll <- tan_cl('class', car, score = 'loglik')
if (FALSE) plot(ll)
ll <- tan_cl('class', car, score = 'loglik', root = 'maint')
if (FALSE) plot(ll)
aic <- tan_cl('class', car, score = 'aic')
bic <- tan_cl('class', car, score = 'bic')
Run the code above in your browser using DataLab