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