R/helperFunctions.R

Defines functions drawE

# function to determine number of settings to draw
drawE <- function(x){
  z <- floor(x)
  if(runif(1) < x-z) z <- z+1
  z <- max(1,z)
  return(z)
}

Try the CompareCausalNetworks package in your browser

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

CompareCausalNetworks documentation built on April 14, 2020, 7:31 p.m.