R/m.psamp.R

In covreg: A simultaneous regression model for the mean and covariance

Defines functions m.psamp

Documented in m.psamp

m.psamp <-
function(fit){
	B=fit$B1.psamp
	X=unique(fit$matrix.mean)
	n=dim(X)[1]
	p=dim(B)[1]
	nsave=dim(B)[3]
	m.psamp=array(dim=c(n,p,nsave))
	for (i in 1:nsave){
		m.psamp[,,i]=X%*%t(B[,,i])
	}
m.psamp
}

Try the covreg package in your browser