drugAnnot <- as(featureData(getAct(rcellminerData::drugData)), "data.frame")
ids <- head(drugAnnot$NSC)
smiles <- head(drugAnnot$SMILES)
fingerprintList <- getFingerprintList(ids, smiles)
# All fingerprints
ids <- drugAnnot$NSC
smiles <- drugAnnot$SMILES
fingerprintList <- getFingerprintList(ids, smiles)
save(fingerprintList, file="fingerprintList.RData")
Run the code above in your browser using DataLab