R/demo_refits_data.R

In archeoViz: Visualisation, Exploration, and Web Communication of Archaeological Spatial Data

Defines functions demo_refits_data

Documented in demo_refits_data

demo_refits_data <- function(n.objects=NULL){
  percentage.of.refits <- 0.05
  refits <- sample(seq_len(n.objects),
                   2 * ceiling((n.objects * percentage.of.refits) / 2))
  matrix(refits, ncol=2)
}

Try the archeoViz package in your browser