library(FoliarGrowth) # Asegurate de cargar tu paquete
test_that("analisis_crecimiento funciona sin errores con datos_ejemplo", {
  expect_no_error(analisis <- analizar_crecimiento(FoliarGrowth::datos_ejemplo))
  expect_s3_class(analisis, "analisis_foliar")
})