Nothing
context("Checking the Plant Disease Data")
test_that("Comparing values of Disease plant",{
expect_equal(Plant_DiseaseData$Dis.plant,seq(0,9))
})
test_that("Comparing values of Frequency",{
expect_equal(Plant_DiseaseData$fre,c(36,48,38,23,10,3,1,1,0,0))
})
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.