Nothing
test.relativeBarPlot<-function(){
relativeBarPlot(c(1,2,4),
total=4,
labels=c("x","y","z"),
title="Test",
filename=file.path(tempdir(), "test.relativeBarPlot"),
)
checkTrue(file.exists(file.path(tempdir(), "test.relativeBarPlot.pdf")),
"relativeBarPlot() makes pdf bar plot")
checkTrue(file.exists(file.path(tempdir(), "test.relativeBarPlot.png")),
"relativeBarPlot() makes png bar plot")
}
test.plotDF<-function(){
df <- data.frame(num = c(0,1,2),
count= c(60,30,10))
plotDF(df,
ylab="Test-Y",
xlab="Test-X",
filename=file.path(tempdir(), "test.plotDF") )
checkTrue(file.exists(file.path(tempdir(), "test.plotDF.pdf")),
"plotDF() makes pdf plot")
checkTrue(file.exists(file.path(tempdir(), "test.plotDF.png")),
"plotDF() makes png plot")
df <- data.frame(num = c(1),
count= c(1))
plotDF(df,
ylab="Test-Y",
xlab="Test-X",
filename=file.path(tempdir(), "test.plotDF") )
checkTrue(file.exists(file.path(tempdir(), "test.plotDF.pdf")),
"plotDF() makes pdf plot")
}
3
test.how_many <- function() {
result <- HTSeqGenie:::how_many(c(1,1,2,2,4))
checkEquals(result$num, c(5,3,1), "how_many() works")
checkEquals(result$count, c(1,2,4), "how_many() works")
result <- HTSeqGenie:::how_many(c())
checkEquals(result, data.frame( num=c(1), count=c(1)), "how_many() returns pseudo result for empty input")
}
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.