View source: R/tapering_metrics.R
lm_eqn | R Documentation |
Plots of the linear regression between diameter and height
lm_eqn(df)
df |
Data.frame with diameter height information. |
Plot of the linear regression
## Not run:
taper_plot <- ggplot2::ggplot(T, ggplot2::aes(diameter, height)) +
ggplot2::geom_point() +
ggplot2::geom_smooth(method='lm') +
ggplot2::geom_text(x = (max(T$diameter)+min(T$diameter))/2,
y = max(T$height)-0.5, label = lm_eqn(T), parse = TRUE)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.