Load CMap data (if not found, file will be automatically downloaded)
loadCMapData(
file,
type = c("metadata", "geneInfo", "zscores", "compoundInfo"),
zscoresID = NULL
)Metadata as a data table
If type = "compoundInfo", two files from
The Drug Repurposing Hub will be downloaded containing information
about drugs and perturbations. The files will be named file with
_drugs and _samples before their extension, respectively.
Other functions related with the ranking of CMap perturbations:
as.table.referenceComparison(),
filterCMapMetadata(),
getCMapConditions(),
getCMapPerturbationTypes(),
loadCMapZscores(),
parseCMapID(),
plot.perturbationChanges(),
plot.referenceComparison(),
plotTargetingDrugsVSsimilarPerturbations(),
prepareCMapPerturbations(),
print.similarPerturbations(),
rankSimilarPerturbations()
# Load CMap metadata (data is automatically downloaded if not available)
cmapMetadata <- loadCMapData("cmapMetadata.txt", "metadata")
#> Loading CMap metadata from cmapMetadata.txt...
# Load CMap gene info
loadCMapData("cmapGeneInfo.txt", "geneInfo")
#> cmapGeneInfo.txt not found: downloading data...
#> Extracting cmapGeneInfo.txt.gz...
#> Loading CMap gene information from cmapGeneInfo.txt...
#> pr_gene_id pr_gene_symbol
#> <int> <char>
#> 1: 780 DDR1
#> 2: 7849 PAX8
#> 3: 2978 GUCA1A
#> 4: 2049 EPHB3
#> 5: 2101 ESRRA
#> ---
#> 12324: 4034 LRCH4
#> 12325: 399664 MEX3D
#> 12326: 54869 EPS8L1
#> 12327: 90379 DCAF15
#> 12328: 60 ACTB
#> pr_gene_title
#> <char>
#> 1: discoidin domain receptor tyrosine kinase 1
#> 2: paired box 8
#> 3: guanylate cyclase activator 1A
#> 4: EPH receptor B3
#> 5: estrogen related receptor alpha
#> ---
#> 12324: leucine-rich repeats and calponin homology (CH) domain containing 4
#> 12325: mex-3 RNA binding family member D
#> 12326: EPS8 like 1
#> 12327: DDB1 and CUL4 associated factor 15
#> 12328: actin, beta
#> pr_is_lm pr_is_bing
#> <int> <int>
#> 1: 1 1
#> 2: 1 1
#> 3: 0 0
#> 4: 0 1
#> 5: 0 1
#> ---
#> 12324: 0 1
#> 12325: 0 1
#> 12326: 0 1
#> 12327: 0 1
#> 12328: 0 1
if (FALSE) { # \dontrun{
# Load CMap zscores based on filtered metadata
cmapMetadataKnockdown <- filterCMapMetadata(
cmapMetadata, cellLine="HepG2",
perturbationType="Consensus signature from shRNAs targeting the same gene")
loadCMapData("cmapZscores.gctx.gz", "zscores", cmapMetadataKnockdown$sig_id)
} # }