flexFitR (version 1.2.2)

compute_tangent: Compute tangent line(s) from a modeler object

Description

Computes the slope and intercept of the tangent line(s) to a fitted curve at one or more specified x-values.

Usage

compute_tangent(object, x = NULL, id = NULL)

Value

A tibble with one row per tangent line and the following columns:

• uid: unique identifier of the group.

• fn_name: Name of the fitted function.

• x: x-value where the tangent line is evaluated.

• y: Fitted y-value at x.

• slope: First derivative (slope of tangent) at x.

• intercept: y-intercept of the tangent line.

Arguments

object

A fitted object of class modeler, created by modeler().

x

A numeric vector of x-values at which to compute tangent lines. A data.frame is also accepted with columns <uid, x>.

id

Optional vector of uids indicating which groups to compute tangent lines for. If NULL, all groups are used.

Examples

library(flexFitR)
library(ggplot2)
data(dt_potato)
mod <- dt_potato |>
  modeler(
    x = DAP,
    y = Canopy,
    grp = Plot,
    fn = "fn_logistic",
    parameters = c(a = 4, t0 = 40, k = 100),
    subset = 2
  )
plot(mod)
tl <- compute_tangent(mod, x = c(48.35, 65))
print(tl)
plot(mod) +
  geom_abline(
    data = tl,
    mapping = aes(slope = slope, intercept = intercept),
    linetype = 2,
    color = "blue"
  ) +
  geom_point(
    data = tl,
    mapping = aes(x = x, y = y),
    shape = 8,
    color = "blue",
    size = 2
  )