#exportPattern("^[[:alpha:]]+")
export(samplesize, calfun)