context("read.csv")
archivo <- "../HIVmlm/VEN_adm2.csv"
test_that("read.csv()", {
test_data <- read.csv(file = archivo ,header = TRUE, sep = ",")
test_data2 <- read.csv("../HIVmlm/VEN_adm2.csv", header = TRUE,sep = ",")
expect_equal(test_data, test_data2)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.