R/tsls.wfit.R

tsls.wfit <- function(X, Y, Z, weights, ...) {
  fs <- lm.wfit(Z, X, weights, ...)
  XZ.hat <- as.matrix(fs$fitted.values)
  rm(fs)
  colnames(XZ.hat) <- colnames(X)
  ss <- lm.wfit(XZ.hat, Y, weights, ...)
  ss
}
kylepeyton/icsw documentation built on May 31, 2019, 11:44 p.m.