require(DESeq)
data.matrix <- counts(makeExampleCountDataSet())
sample.list <- list(A=c("A1","A2"),B=c("B1","B2","B3"))
lengths <- round(1000*runif(nrow(data.matrix)))
starts <- round(1000*runif(nrow(data.matrix)))
ends <- starts + lengths
covars <- list(
data=data.matrix,
length=lengths,
gc=runif(nrow(data.matrix)),
chromosome=data.frame(
chromosome=c(rep("chr1",nrow(data.matrix)/2),
rep("chr2",nrow(data.matrix)/2)),
start=starts,
end=ends
),
factors=data.frame(class=as.class.vector(sample.list)),
biotype=c(rep("protein_coding",nrow(data.matrix)/2),rep("ncRNA",
nrow(data.matrix)/2))
)
p <- runif(nrow(data.matrix))
diagplot.noiseq(data.matrix,sample.list,covars=covars,
biodist.opts=list(p=p,pcut=0.1,name="A_vs_B"))
Run the code above in your browser using DataLab