R/print.EBLUP.R

In qape: Quantile of Absolute Prediction Errors

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