R/vcov.mypls.R

Defines functions vcov.mypls

Documented in vcov.mypls

vcov.mypls=function(object,...){
    dummy<-object$covariance
    if (is.null(dummy)==TRUE){
        cat(paste("WARNING: Covariance of regression coefficients is not available.\n"))
        cat(paste("Returning NULL object.\n"))
    }
    return(dummy)
}

Try the ppls package in your browser

Any scripts or data that you put into this service are public.

ppls documentation built on July 21, 2018, 5:02 p.m.