## Not run:
# query <- TCGAquery("acc", platform = "genome_wide_snp_6", level = 3)
# TCGAdownload(query,path = "trash", samples = "TCGA-OR-A5JH-01A-11D-A309-01")
# segment_data <- TCGAprepare(query, dir = "trash", type = "nocnv_hg19",
# samples = "TCGA-OR-A5JH-01A-11D-A309-01")
# TCGAanalyze_copynumber(segment_data)
# ## End(Not run)
Run the code above in your browser using DataLab