tests/testthat/test-antigenic-cartography.R

In topolow: Force-Directed Euclidean Embedding of Dissimilarity Data

test_that("process_antigenic_data handles various input formats", {
  # Create test data
  test_data <- data.frame(
    antigen = c("A1", "A2", "A1"),
    serum = c("S1", "S1", "S2"),
    value = c(40, 80, "<160"),
    stringsAsFactors = FALSE
  )

  # Test titer data processing
  result <- process_antigenic_data(
    test_data,
    antigen_col = "antigen",
    serum_col = "serum",
    value_col = "value",
    is_similarity = TRUE
  )
  
  expect_true(is.list(result))
  expect_true(all(c("long", "matrix") %in% names(result)))
  expect_true(is.matrix(result$matrix))
})