ourMELONS/R/rand_disc.R

rand_disc <- function(CDF) {
  # %returns an index of a value from a discrete distribution using inversion method
  slump <- rand
  har <- matlab2r::find(CDF > slump)
  svar <- har(1)
  return(svar)
}
Translated rand_disc 2020-11-19 12:15:16 +01:00			`rand_disc <- function(CDF) {`
Restyled files Ran through styler::style_dir() in the R and tests directories in preparation for #23. 2021-11-10 14:02:35 +01:00			`# %returns an index of a value from a discrete distribution using inversion method`
			`slump <- rand`
Resolved conflicts involving homonymous functions 2022-02-03 10:43:34 +01:00			`har <- matlab2r::find(CDF > slump)`
Restyled files Ran through styler::style_dir() in the R and tests directories in preparation for #23. 2021-11-10 14:02:35 +01:00			`svar <- har(1)`
			`return(svar)`
Translated rand_disc 2020-11-19 12:15:16 +01:00			`}`