R/d2_Sigmastar_logtheta.exp.R

`d2_Sigmastar_logtheta.exp` <-
function(logtheta,dist) {
		d2        = exp(- exp(logtheta) * dist) * (- exp(logtheta) * dist) *( 1 - exp(logtheta) * dist)
		diag(d2) = 0
		return(d2)
}

Try the Stem package in your browser

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

Stem documentation built on May 29, 2017, 11:12 p.m.