Nothing
## ---- eval=FALSE, tidy=TRUE----------------------------------------------
# rowSums(cpm(data)>100) >= 2
## ---- eval=FALSE, tidy=TRUE----------------------------------------------
# data(pAbp)
# attach(pAbp)
# model.fit <- timeSeq(data.count,group.label,gene.names,exon.length,exon.level=TRUE,pvalue=FALSE)
# detach(pAbp)
#
## ---- eval=FALSE, tidy=TRUE----------------------------------------------
# model.fit$NPDE
# model.fit$PDE
#
## ---- eval=FALSE, tidy=TRUE----------------------------------------------
# data(simulate.dt)
# attach(simulate.dt)
# model.fit <- timeSeq(data.count,group.label,gene.names,exon.level=FALSE,pvalue=FALSE)
# timeSeq.screeplot(model.fit, "lines")
## ---- eval=FALSE, tidy=TRUE---------------------------------------------
# data(simulate.dt)
# attach(simulate.dt)
# model.fit <- timeSeq(data.count,group.label,gene.names,exon.level=FALSE,pvalue=FALSE)
# timeSeq.heatmap(model.fit,n=10)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.