# \donttest{
df <- data.frame(
yield = c(1200, 1350, 1100, 1450, 1280),
wue = c(4.2, 4.8, 3.9, 5.1, 4.5)
)
result <- correlation_analysis(df, plot = FALSE)
export_results(result, tempfile(fileext = ".xlsx"))
# }
Run the code above in your browser using DataLab