R/gamEst.R

Defines functions gamEst

Documented in gamEst

gamEst <- function(X1, x1, y1, v1){
    tmp <- lsfit(X1, y1, wt = 1/v1, intercept = FALSE)
    beta1 <- lsfit(log(x1), log(tmp$residuals^2))$coef
    g1 <- beta1["X"]
    g1
}

Try the PracTools package in your browser

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

PracTools documentation built on Nov. 9, 2023, 9:06 a.m.