R/dirac1.R

"dirac1" <-
function(u,x)
{
if(u<= x) dirac1<-1 else dirac1<-0
	resultdirac1<-dirac1
}

Try the fgac package in your browser

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

fgac documentation built on May 2, 2019, 6:07 a.m.