R/WLScoefs.r

Defines functions WLScoefs

Documented in WLScoefs

WLScoefs <- function(linelist, DataLogged=FALSE) {

	if (is.data.frame(linelist)) linelist <- list(linelist)		
	
	if (DataLogged) logfn <- log else logfn <- function(x) x
	
	return(t(sapply(linelist, function(z) coef(lm(logfn(Estimate) ~ RF_Level, data=z, weights=1/(StdErr^2))))))

}
arnhew99/Jasper documentation built on Nov. 19, 2022, 2:46 p.m.