powered by
blocksample(data, size, idvar = "id", replace = TRUE, ...)
data.frame
d <- data.frame(x=rnorm(5), z=rnorm(5), id=c(4,10,10,5,5), v=rnorm(5)) (dd <- blocksample(d,size=20)) attributes(dd)$id ## Not run: # blocksample(data.table::data.table(d),1e6) # ## End(Not run)
Run the code above in your browser using DataLab