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") })