R/applystnd.Hs.R

Defines functions applystnd.Hs

Documented in applystnd.Hs

applystnd.Hs <-
function( Hs0, x ) {
    
    sHs0 <- t( ( t(Hs0) - x$h.mean ) / x$h.sd )
    if( x$intercept ) { sHs0[ , 1] <- 1 / sqrt(x$n) }
    
    return(sHs0)
}

Try the widals package in your browser

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

widals documentation built on Dec. 8, 2019, 1:07 a.m.