R/postvar.R

postvar <-
  function(Kmat,Jmat,Cisqrt){
  ### get posterior variance
  
  pvar <- rowSums((cbind(Kmat,Jmat)%*%Cisqrt)^2)
  
}
taylerablake/thin-plate-splines documentation built on May 8, 2019, 11:16 p.m.