R/applystnd.Hst.ls.R

Defines functions applystnd.Hst.ls

Documented in applystnd.Hst.ls

applystnd.Hst.ls <-
function( Hst0.ls, x ) {
    tau <- length(Hst0.ls)
	sHst0.ls <- list()
	for(i in 1:tau) { 
		sHst0.ls[[i]] <- t( ( t(Hst0.ls[[i]]) - x$h.mean ) / x$h.sd )
	}
	return(sHst0.ls)
}

Try the widals package in your browser

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

widals documentation built on May 29, 2017, 10:11 p.m.