R/createD.r

Defines functions createD

# internal functions to create random values
# discrete
createD <- function(x, q){

  qsub <- q[x,]
  qsubUQ <- unique(qsub)

  values <- sample(as.numeric(qsubUQ), length(x), replace=TRUE)
  values

}
lydialucchesi/Vizumap documentation built on Oct. 30, 2024, 6:52 a.m.