mirror of
https://github.com/agdamsbo/stRoke.git
synced 2024-11-22 13:00:23 +01:00
6 lines
290 B
R
6 lines
290 B
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")
|
|
}) |