R/stnd.Ht.R

Defines functions stnd.Ht

Documented in stnd.Ht

stnd.Ht <-
function(Ht, n) {
    h.mean <- apply(Ht, 2, mean)
    sHt <- t( t(Ht) - h.mean )
    sHt <- t( t(sHt) / apply( sHt, 2, function(x) { sqrt( sum(x^2) ) } ) )
    sHt <- sHt * sqrt( nrow(Ht) / n )
    return(sHt)
}

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.