R/Boost_weight.R

Defines functions W

W <- function(r_star,g_x){
  a <- data.frame(r_star); b <- data.frame(g_x)
  data <- cbind(a,b)
  colnames(data) <- c('Y',"X")
  w <- lm(Y~X,data = data)
  return(w$coefficients)
}

Try the AFFECT package in your browser

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

AFFECT documentation built on July 9, 2023, 6:45 p.m.