this function generates some test-data
ck_create_testdata()
a data.frame
data.frame
dat <- ck_create_testdata(); print(str(dat))