R/summary.ebpLMMne.R

In qape: Quantile of Absolute Prediction Errors

summary.ebpLMMne <-
  function(object, ...){
    cat(paste('Value/s of the predictor of the defined function/s of the dependent variable =', 
              round(object$thetaP, 4), 
              '\nto see the details, please use str()', '\n', '\n'))
    cat(paste('Sample size = ', length(object$YS), '\n'))
    cat(paste('Dataset size = ', nrow(object$reg), '\n', '\n'))
    print(summary(object$mEst))
  }