## Not run:
#
# data(PREDAsampledata)
# CNdataPath <- system.file("sampledata", "CopyNumber", package =
# "PREDAsampledata")
# CNannotationFile <- file.path(CNdataPath , "SNPAnnot100k.csv")
#
# CNGenomicsAnnotations<-GenomicAnnotationsForPREDAFromfile(
# file=CNannotationFile,
# ids_column=1,
# chr_column="Chromosome",
# start_column=4,
# end_column=4,
# strand_column="Strand",
# chromosomesLabelsInput=1:22,
# MinusStrandString="-", PlusStrandString="+",
# optionalAnnotationsColumns=c("Cytoband", "Entrez_gene"),
# header=TRUE, sep=",", quote="\"", na.strings = c("NA", "",
# "---"))
#
#
# ## End(Not run)
Run the code above in your browser using DataLab