CMap perturbations sample for small molecules obtained by running the following code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | cellLine <- c("HepG2", "HUH7")
cmapMetadataCompounds <- filterCMapMetadata(
"cmapMetadata.txt", cellLine=cellLine, timepoint="24 h",
dosage="5 \u00B5M", perturbationType="Compound")
cmapPerturbationsCompounds <- prepareCMapPerturbations(
cmapMetadataCompounds, "cmapZscores.gctx", "cmapGeneInfo.txt",
"cmapCompoundInfo_drugs.txt", loadZscores=TRUE)
# Remove non-ASCII characters for portability reasons
metadata <- attr(cmapPerturbationsCompounds, "metadata")
metadata$pert_idose <- gsub("\u00B5", "micro", metadata$pert_idose)
metadata$pert_dose_unit <- gsub("\u00B5", "micro", metadata$pert_dose_unit)
attr(cmapPerturbationsCompounds, "metadata") <- metadata
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.