# NOT RUN {
# make some data
data <- seq(1, 29, 1)
data <- c(data, NA)
data <- data.frame(matrix(data, ncol = 10))
randomSample <- intFun.sampleDataFrame(ref = data)
print(data)
print(randomSample)
# }
Run the code above in your browser using DataLab