Skip to content

Commit

Permalink
one test 1
Browse files Browse the repository at this point in the history
  • Loading branch information
@cebarboza
cebarboza committed Aug 21, 2023
1 parent e676ba1 commit 00a99e7
Showing 1 changed file with 83 additions and 83 deletions.
166 changes: 83 additions & 83 deletions tests/testthat/test-MainFunctions.R
View file
Original file line number Diff line number Diff line change
Expand Up @@ -21,86 +21,86 @@ test_that("option 1: fully pre-specified settings file works", {
expect_equal(model, "'petallength'>2.45AND'petallength'<=4.95AND'petalwidth'<=1.65")
})

test_that("option 2: pre-specified settings file with input data works", {
### Tests for EXPLORE using iris dataset
data_path <- system.file("examples", "iris.arff", package = "Explore")
settings_path <- system.file("examples", "iris.project", package = "Explore")
output_path <- paste0(tempdir(), "/", "Test2")
dir.create(output_path)
if (.Platform$OS.type == "windows") {
output_path <- gsub("\\\\", "/", output_path)
}
output_path <- paste0(output_path, "/")
data <- farff::readARFF(data_path)
model <- Explore::trainExplore(output_path = output_path,
train_data = data,
settings_path = settings_path,
ClassFeature = "'class'",
PositiveClass = '"Iris-versicolor"')
expect_equal(class(model), "character")
expect_false(model == "NA", info = "Test failed because model is NA")
expect_equal(model, "'petallength'>2.45AND'petallength'<=4.95AND'petalwidth'<=1.65") # OR "'sepallength'>4.85" ?
})

test_that("option 3: only input parameters (no settings file) works", {
### Tests for EXPLORE using iris dataset
data_path <- system.file("examples", "iris.arff", package = "Explore")
settings_path <- system.file("examples", "iris.project", package = "Explore")
output_path <- paste0(tempdir(), "/", "Test3")
dir.create(output_path)
if (.Platform$OS.type == "windows") {
output_path <- gsub("\\\\", "/", output_path)
}
output_path <- paste0(output_path, "/")
data <- farff::readARFF(data_path)
model <- Explore::trainExplore(output_path = output_path,
file_name = "iris",
train_data = data,
ClassFeature = "'class'",
PositiveClass = '"Iris-versicolor"')
expect_equal(class(model), "character")
expect_false(model == "NA", info = "Test failed because model is NA")
expect_equal(model, "'petallength'>2.45AND'petallength'<=4.95AND'petalwidth'<=1.65")
})

test_that("prediction", {
### Tests for EXPLORE using iris dataset
data_path <- system.file("examples", "iris.arff", package = "Explore")
settings_path <- system.file("examples", "iris.project", package = "Explore")
output_path <- paste0(tempdir(), "/", "Test4")
dir.create(output_path)
if (.Platform$OS.type == "windows") {
output_path <- gsub("\\\\", "/", output_path)
}
output_path <- paste0(output_path, "/")
data <- farff::readARFF(data_path)
model <- Explore::trainExplore(output_path = output_path,
train_data = data,
settings_path = settings_path,
ClassFeature = "'class'",
PositiveClass = '"Iris-versicolor"')
prediction <- Explore::predictExplore(model, test_data = data)
expect_equal(class(prediction), "integer")
expect_equal(length(prediction), nrow(data))
expect_equal(sum(prediction %in% c(0,1) == FALSE),0)
})

test_that("compute AUC", {
data_path <- system.file("examples", "iris.arff", package = "Explore")
settings_path <- system.file("examples", "iris.project", package = "Explore")
output_path <- paste0(tempdir(), "/", "Test5")
dir.create(output_path)
if (.Platform$OS.type == "windows") {
output_path <- gsub("\\\\", "/", output_path)
}
output_path <- paste0(output_path, "/")
data <- farff::readARFF(data_path)
auroc <- Explore::aurocEXPLORE(output_path = output_path,
train_data = data,
settings_path = settings_path,
ClassFeature = "'class'",
PositiveClass = '"Iris-versicolor"')
expect_equal(class(auroc), "numeric")
expect_true(auroc < 100)
expect_true(auroc > 0)
})
# test_that("option 2: pre-specified settings file with input data works", {
# ### Tests for EXPLORE using iris dataset
# data_path <- system.file("examples", "iris.arff", package = "Explore")
# settings_path <- system.file("examples", "iris.project", package = "Explore")
# output_path <- paste0(tempdir(), "/", "Test2")
# dir.create(output_path)
# if (.Platform$OS.type == "windows") {
# output_path <- gsub("\\\\", "/", output_path)
# }
# output_path <- paste0(output_path, "/")
# data <- farff::readARFF(data_path)
# model <- Explore::trainExplore(output_path = output_path,
# train_data = data,
# settings_path = settings_path,
# ClassFeature = "'class'",
# PositiveClass = '"Iris-versicolor"')
# expect_equal(class(model), "character")
# expect_false(model == "NA", info = "Test failed because model is NA")
# expect_equal(model, "'petallength'>2.45AND'petallength'<=4.95AND'petalwidth'<=1.65") # OR "'sepallength'>4.85" ?
# })
#
# test_that("option 3: only input parameters (no settings file) works", {
# ### Tests for EXPLORE using iris dataset
# data_path <- system.file("examples", "iris.arff", package = "Explore")
# settings_path <- system.file("examples", "iris.project", package = "Explore")
# output_path <- paste0(tempdir(), "/", "Test3")
# dir.create(output_path)
# if (.Platform$OS.type == "windows") {
# output_path <- gsub("\\\\", "/", output_path)
# }
# output_path <- paste0(output_path, "/")
# data <- farff::readARFF(data_path)
# model <- Explore::trainExplore(output_path = output_path,
# file_name = "iris",
# train_data = data,
# ClassFeature = "'class'",
# PositiveClass = '"Iris-versicolor"')
# expect_equal(class(model), "character")
# expect_false(model == "NA", info = "Test failed because model is NA")
# expect_equal(model, "'petallength'>2.45AND'petallength'<=4.95AND'petalwidth'<=1.65")
# })
#
# test_that("prediction", {
# ### Tests for EXPLORE using iris dataset
# data_path <- system.file("examples", "iris.arff", package = "Explore")
# settings_path <- system.file("examples", "iris.project", package = "Explore")
# output_path <- paste0(tempdir(), "/", "Test4")
# dir.create(output_path)
# if (.Platform$OS.type == "windows") {
# output_path <- gsub("\\\\", "/", output_path)
# }
# output_path <- paste0(output_path, "/")
# data <- farff::readARFF(data_path)
# model <- Explore::trainExplore(output_path = output_path,
# train_data = data,
# settings_path = settings_path,
# ClassFeature = "'class'",
# PositiveClass = '"Iris-versicolor"')
# prediction <- Explore::predictExplore(model, test_data = data)
# expect_equal(class(prediction), "integer")
# expect_equal(length(prediction), nrow(data))
# expect_equal(sum(prediction %in% c(0,1) == FALSE),0)
# })
#
# test_that("compute AUC", {
# data_path <- system.file("examples", "iris.arff", package = "Explore")
# settings_path <- system.file("examples", "iris.project", package = "Explore")
# output_path <- paste0(tempdir(), "/", "Test5")
# dir.create(output_path)
# if (.Platform$OS.type == "windows") {
# output_path <- gsub("\\\\", "/", output_path)
# }
# output_path <- paste0(output_path, "/")
# data <- farff::readARFF(data_path)
# auroc <- Explore::aurocEXPLORE(output_path = output_path,
# train_data = data,
# settings_path = settings_path,
# ClassFeature = "'class'",
# PositiveClass = '"Iris-versicolor"')
# expect_equal(class(auroc), "numeric")
# expect_true(auroc < 100)
# expect_true(auroc > 0)
# })

0 comments on commit 00a99e7

Please sign in to comment.