library("vioplot")
context("formula input")
test_that("plot data list input", {
data(iris)
boxplot(iris$Sepal.Length[iris$Species=="setosa"], iris$Sepal.Length[iris$Species=="versicolor"], iris$Sepal.Length[iris$Species=="virginica"], names=c("setosa", "versicolor", "virginica"), main = "Sepal Length")
histoplot(iris$Sepal.Length[iris$Species=="setosa"], iris$Sepal.Length[iris$Species=="versicolor"], iris$Sepal.Length[iris$Species=="virginica"], names=c("setosa", "versicolor", "virginica"), main = "Sepal Length")
})
test_that("plot vector formula input", {
boxplot(iris$Sepal.Length~iris$Species)
histoplot(iris$Sepal.Length~iris$Species)
})
test_that("plot column formula with dataframe input", {
boxplot(Sepal.Length~Species, data=iris)
histoplot(Sepal.Length~Species, data=iris)
})
test_that("plot formula with dataframe input and scalar colour", {
histoplot(Sepal.Length~Species, data=iris, col="lightblue")
})
test_that("plot formula with dataframe input and vector colour", {
histoplot(Sepal.Length~Species, data=iris, col=c("lightgreen", "lightblue", "palevioletred"))
})
# attach(iris)
# iris <- as.matrix(iris[,1:4])
# test_that("plot column formula with matrix input", {
# histoplot(Sepal.Length~Species, data=iris)
# })
Generated by dwww version 1.15 on Sat May 18 06:08:07 CEST 2024.