library(metafor) library(ggplot2) library(readxl)

Cargar datos (asegúrate de tener un CSV con las columnas adecuadas)

datos <- read_excel(“C:/Users/admi/Downloads/BD_Proyecto_MIE.xlsx”)

Verificar estructura de los datos

str(datos)

Metanálisis de efectos aleatorios

meta_analisis <- rma(yi = LOS, sei = ES, data = datos, method = “REML”)

Resumen del metanálisis

summary(meta_analisis)

Forest plot para visualizar los resultados

forest(meta_analisis, slab = paste(datos\(LOS, datos\)tipo_patogeno, sep=“,”))

Comparación entre patógenos foliares y vasculares

comparacion <- rma(yi = LOS, sei = error_estandar, mods = ~ Patogeno, data = datos, method = “REML”) summary(comparacion)

Visualización de la comparación con un gráfico de dispersión

ggplot(datos, aes(x = LOS, y = LOS, color = Patogeno)) + geom_point() + geom_smooth(method = “lm”, se = FALSE) + labs(title = “Comparación de longitudes de onda por tipo de patógeno”, x = “Longitud de onda (nm)”, y = “Efecto observado”) + theme_minimal()