R/fhatgg.R

Defines functions fhatgg

fhatgg <-
function(x,theta,mu,sigma){
	dn=theta*dnorm(x,mu,sigma)
	f=sum(dn)
	fg=sum(dn*(mu-x)/sigma^2)
	fgg=sum(dn*((mu-x)^2/sigma^2-1)/sigma^2)
	return(c(f,fg,fgg))
}

Try the PGICA package in your browser

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

PGICA documentation built on May 29, 2017, 7:52 p.m.