R/upPsi2T.R

upPsi2T<-function(psi2T, xiT, SI4SigmaT, cont, psi2){
	
	1 / (1 / psi2 + 2 * sum(1 / (1 + exp(-psi2T / 2) / (sqrt(det(SI4SigmaT)) * exp(xiT) * exp(-cont)))))

	}

Try the lvm4net package in your browser

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

lvm4net documentation built on June 13, 2019, 5:03 p.m.