stRoke/tests/testthat/test-generic_stroke.R

test_that("generic_stroke() runs!", {
  iris$ord<-factor(sample(1:3,size=nrow(iris),replace=TRUE),ordered=TRUE) 
  result <- generic_stroke(df=iris, group = "Species", score = "ord", variables = colnames(iris)[1:3])
  expect_equal(length(result), 3)
  expect_equal(class(result), "list")
})
Added the generic_stroke() function and bumped version number. 2022-09-30 12:57:23 +02:00			`test_that("generic_stroke() runs!", {`
			`iris$ord<-factor(sample(1:3,size=nrow(iris),replace=TRUE),ordered=TRUE)`
			`result <- generic_stroke(df=iris, group = "Species", score = "ord", variables = colnames(iris)[1:3])`
			`expect_equal(length(result), 3)`
New tests with help from gpttools 2023-01-03 14:12:29 +01:00			`expect_equal(class(result), "list")`
			`})`