YEAB (version 1.0.6)

curv_index_fry: Curvature index using Fry derivation

Description

Curvature index using Fry derivation

Usage

curv_index_fry(cr, time_in, fi_val, n = 4)

Value

The curvature index as exposed by Fry

Arguments

cr

A numeric vector of cumulative response

time_in

numeric, time (or the x axis in a cumulative response plot)

fi_val

the FI value

n

numeric, the number of subintervals

Examples

data("r_times")
r_times <- r_times[r_times < 60]
cr <- seq_along(r_times)

plot(r_times, cr, type = "s", xlim = c(min(r_times), max(r_times)))
segments(
  x0 = min(r_times), y0 = min(cr),
  x1 = max(r_times), y1 = max(cr)
)
segments(
  x0 = min(r_times) + (max(r_times) - min(r_times)) / 2, y0 = min(cr),
  x1 = max(r_times), y1 = max(cr),
  col = "red"
)
curv_index_fry(cr, r_times, 60, 4)