R/pred.xenv.R

Defines functions pred.xenv

Documented in pred.xenv

pred.xenv <- function(m, Xnew) {
  
  if(is.null(m$ratio)) stop("The asymptotic distribution part of env is missing. Rerun xenv with asy = T")
  
  n <- m$n
  r <- ncol(m$SigmaYcX)
  if (is.null(m$Gamma)) {
    u <- 0
  } else { 
    u <- ncol(m$Gamma)
  }
  
  if (u == 0) {
    value <- m$mu
    covMatrix.estm <- m$SigmaYcX / n
    covMatrix.pred <- (1 + 1 / n) * m$SigmaYcX
  } else {
    Xnew <- as.matrix(Xnew)
    if (nrow(Xnew) == 1) Xnew <- t(Xnew)
    value <- m$mu + crossprod(m$beta, Xnew)
    temp <- kronecker(diag(r), Xnew) 
      covMatrix.estm <- m$SigmaYcX / n + crossprod(temp, m$covMatrix) %*% temp / n
      covMatrix.pred <- (1 + 1 / n) * m$SigmaYcX + crossprod(temp, m$covMatrix) %*% temp / n
  }
  
  SE.estm <- sqrt(diag(covMatrix.estm))
  SE.pred <- sqrt(diag(covMatrix.pred))
  return(
    list(
      value = value, covMatrix.estm = covMatrix.estm, SE.estm = SE.estm, covMatrix.pred = covMatrix.pred, SE.pred = SE.pred
    )
  )   
}

Try the Renvlp package in your browser

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

Renvlp documentation built on Sept. 11, 2021, 9:07 a.m.