motifsFromPCA
1 2 3 4 |
1 2 3 4 5 6 7 8 | l<-mapply(function(a,b,c){
motifsFromPCA(Sequences,data,a,b,title=c)
},
list(1,1,3,c(3,5),c(3,7),c(3,7),7),
list("top","bottom","top",c("top","top"),c("top","bottom"),c("top","bottom"),"top"),
paste("~/Masters/mulcal/inst/data/",list("normal","abnormal","ecfc","other","hspc","meka","diff"),".pwm",sep=""))
l<-motifsFromPCA(Sequences ,data,c(1,2,3),c("top","top","bottom"))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.