## Not run:
# ## download snp.data.RData
# url <- "https://zhangz05.u.hpc.mssm.edu/saasCNV/data/snp.data.RData"
# tryCatch({download.file(url=url, destfile="snp.data.RData")
# }, error = function(e) {
# download.file(url=url, destfile="snp.data.RData", method="curl")
# })
# ## If download.file fails to download the data, please manually download it from the url.
#
# load("snp.data.RData")
# data(snp.cnv)
# snp.cnv.refine <- snp.refine.boundary(data=snp.data, segs.stat=snp.cnv)
# ## End(Not run)
## how the results look like
data(snp.cnv.refine)
head(snp.cnv.refine)
Run the code above in your browser using DataLab