WU160118 | R Documentation |
WU160118 Mascot Search results
Christian Panse
https://fgcz-bfabric.uzh.ch/bfabric/userlab/show-workunit.html?id=160118
please read the vignette summaryFASTA.Rmd.
library(ExperimentHub) eh <- ExperimentHub(); load(query(eh, c("NestLink", "WU160118.RData"))[[1]]) class(WU160118) PATTERN <- "^GS[ASTNQDEFVLYWGP]{7}(WR|WLTVR|WQEGGR|WLR|WQSR)$" idx <- grepl(PATTERN, WU160118$pep_seq) WU <- WU160118[idx & WU160118$pep_score > 25,] library(lattice) histogram(~RTINSECONDS| datfilename, data = WU, type='count')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.