tests/testthat/test-LDA_plot_activity.R

test_that("input works", {
  data("LDAdata")
  Z1 <- subset.data.frame(LDAdata,subset = name == unique(LDAdata$name)[1])
  LDA_tab <- Z1[,c("S-value","# Tested","# Clonal growth","Group","replicate")]
  expect_error(LDA_plot_activity(LDA_tab))
})

Try the LDAcoop package in your browser

Any scripts or data that you put into this service are public.

LDAcoop documentation built on Sept. 12, 2024, 7:43 a.m.