R/pred.pfc.R

Defines functions pred.pfc

pred.pfc = function(R,BFt, GWG, y)
{
  n=length(y)
  d=dim(GWG)[1]
  nx=dim(R)[2]
  Ehat=rep(0,nx)
  ghat=rep(0, n)
  coutput=.C("pred",  Ehat=as.double(Ehat), ghat=as.double(ghat), R=as.double(R), 
  BFt=as.double(BFt),  GWG=as.double(GWG), y=as.double(y), nin=as.integer(n), din=as.integer(d),
  nxin=as.integer(nx))
  return(coutput$Ehat)
}

Try the abundant package in your browser

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

abundant documentation built on May 2, 2019, 2:08 a.m.