dkprofile {doolkit}

cumulative profile, its slope and the area under its curve

Description

A function for drawing the cumulative profile of a variable, computing the area under the curve and the slope of the profile at the arithmetic mean of the variable.

Usage

dkprofile(
  x,
  type = "cartesian",
  xlab = paste("cumulated frequency (%)"),
  ylab = "",
  main = "",
  col = "red",
  alpha = 1,
  size = 1,
  linetype = "solid"
)

Arguments

x

a numeric vector

type

a character string indicating the type of coordinates to use ("cartesian", "polar" etc.). Currently only "cartesian" is supported.

xlab

title of the x axis

ylab

title of the y axis

main

main title of the plot

col

the color of data points

alpha

numeric indicating the alpha value of data points

size

the size of data points

linetype

the type of line to be traced (see ggplot2)

Value

A list containing (1) the area under the curve of the profile, (2) the profile to be drawn, and (3) the slope of the profile at the mean of the variable.

References

doi:10.3389/fphys.2017.00524Thiery et al. (2017)

Examples

#Elevation (hypsometric) profile (see Thiery et al., 2017):
dkprofile(elev(dkpongo$OES), main = "Elevation profile - Pongo pygmaeus",
ylab = "Elevation (%)", col = "#0072B2", linetype = "solid")

#Enamel-dentine distance (pachymetric) profile:
dkprofile(oedist(dkpongo$OES, dkpongo$EDJ),
main = "Elevation profile - Pongo pygmaeus", ylab = "Distance (%)",
col = "#F0E442", linetype = "dashed")

#Curvature (kurtometric) profile:
dkprofile(Rvcg::vcgCurve(dkpongo$OES)$meanitmax,
main = "Curvature profile - Pongo pygmaeus", ylab = "Curvature (%)",
col = "#D55E00", linetype = "dotted")