if (FALSE) {
data(leaflife)
leaf.low.soilp <- subset(leaflife, soilp == "low")
# Single fit
ft1 <- sma(longev ~ lma, data = leaf.low.soilp, log = "xy")
ggplot2::ggplot(ft1)
# Grouped fit with common-slope test
ft2 <- sma(longev ~ lma * rain, data = leaf.low.soilp, log = "xy")
ggplot2::ggplot(ft2)
# ggplot object can be extended as usual
ggplot2::ggplot(ft2) + ggplot2::theme_minimal()
}
Run the code above in your browser using DataLab