transfer_ratio: Transfer a vector of aspect ratios onto another body profile

In gdi: Volumetric Analysis using Graphic Double Integration

Transfer a vector of aspect ratios onto another body profile

Description

Transfer a vector of aspect ratios onto another body profile

Usage

transfer_ratio(
  lat = NULL,
  dors = NULL,
  indices = NULL,
  lat0,
  dors0,
  indices0 = NULL,
  smooth = 0.005,
  return = "diameters",
  ...
)

Arguments

lat	diameters in lateral view, supply to estimate transverse diameters from dorsoventral ones
dors	diameters in dorsal (or ventral) view, supply to estimate dorsoventral diameters from transverse ones
indices	optional vector of indices to apply to subset lat or dors
lat0	(dorsoventral) diameters in lateral view for template
dors0	(transverse) diameters in dorsal/ventral view for template (vector is subsetted to same length as lat0 if lengths don’t match)
indices0	optional vector of indices to subset lat0 and dors0
smooth	width of smoothing interval (as fraction of full silhouette length)
return	what to return, either "diameters" to return diameters, or "ratios", to return ratios
...	additional arguments to pass on to paleoDiv::rmeana() for computation of running mean of diameter ratios

Value

Either a numeric vector of interpolated transverse or dorsoventral diameters or width/depth or depth/width ratios depending on the chosen settings, or a data.frame of same format as dors0 or lat0 (with the "center" column copied)

Examples

fdir <- system.file(package="gdi")
lat <- measuresil(file.path(fdir,"exdata","lat.png"), return="all")
dors <- measuresil(file.path(fdir,"exdata","dors.png"), return="all")
gdi(lat,dors,scale=100) #real volume
dors_est <- transfer_ratio(lat=lat,lat0=lat,dors0=dors,smooth=0.005)
gdi(lat,dors_est,scale=100) #volume with dorsal view interpolated
lat_est <- transfer_ratio(dors=dors,lat0=lat,dors0=dors,smooth=0.005)
gdi(lat_est,dors,scale=100) #volume with lateral view interpolated
plot_sil(lat,asp=1) #visualize results
plot_sil(dors,add=TRUE)
plot_sil(lat_est,add=TRUE,col="blue",alpha=0.3)
plot_sil(dors_est,add=TRUE,col="blue",alpha=0.3)

gdi documentation built on Nov. 25, 2025, 5:09 p.m.