R/getVar0.R

getVar0 <-
function(Tau,Phi,dd)
{
	II = diag(1,dd*dd)
	Var0 = matrix(solve(II - Phi%x%Phi)%*%as.vector(Tau),ncol=dd)
	return(Var0)
}
SAcmu/LLSM documentation built on May 9, 2019, 11:06 a.m.