R/sim.R

sim <-
function(ip, x, D = 1.7){
	    i = irf(ip, x, D)
    	d = dim(i$f)
   		u = runif(d[1] * d[2])
    	dim(u) = d
    	return(ifelse(i$f > u, 1, 0))}

Try the cacIRT package in your browser

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

cacIRT documentation built on May 1, 2019, 10:18 p.m.