# NOT RUN {
#Generate a dataframe with 2 columns containing random values.
# Check a range of columns.
validate_data("2,3,4", ncol(data.frame(x1=sample(1:100,10),
x2=sample(500:1000, 10), x3=sample(-100:0,10))))
# Check a single column.
validate_data("2", ncol(data.frame(x1=sample(1:100,10),
x2=sample(500:1000, 10))))
# }
Run the code above in your browser using DataLab