##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (x,...){ret<-c(AIC=AIC(x@logLik),BIC=BIC(x@logLik),logLik=x@logLik)ret}