## Not run:
# require('hapmapsnp6')
# celDir <- system.file('celFiles', package = 'hapmapsnp6')
# filenames <- dir(path = celDir, full.names = TRUE)
# cn.farms(filenames = filenames)
# ## End(Not run)
Run the code above in your browser using DataLab