df <- data.frame(
yield = c(1200, 1350, 1100, 1450, 1280),
wue = c(4.2, 4.8, 3.9, 5.1, 4.5),
protein = c(22.1, 23.5, 21.8, 24.2, 22.9)
)
result <- correlation_analysis(df, plot = FALSE)
arid_plot(result)
Run the code above in your browser using DataLab