##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function(ip,x){
i = irf(ip, x)
d = dim(i$f)
u = runif(d[1] * d[2])
dim(u) = d
return(ifelse(i$f > u, 1, 0))}
Run the code above in your browser using DataLab