R/d2_Sigmastar_logtheta.exp.R

Defines functions `d2_Sigmastar_logtheta.exp`

`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 2, 2019, 8:56 a.m.