R/d1_Sigmastar_logtheta.exp.R

Defines functions `d1_Sigmastar_logtheta.exp`

`d1_Sigmastar_logtheta.exp` <-
function(logtheta,dist) {
		d1       = exp(- exp(logtheta) * dist) * (- exp(logtheta) * dist)
		diag(d1) = 0
		return(d1)
}

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.