R/spPredict.R

Defines functions spPredict

spPredict <- function(mod, newdata, intercept = FALSE) {
  beta <- coef(mod)
  if ( intercept ) {
    X <- cbind(1 , newdata)
  } else {
    X <- newdata
  }
  as.numeric(X %*% beta)
}
statistikat/simPop documentation built on March 24, 2024, 5:05 a.m.