
coo_slide(coo, id1, ldk)
matrix
of (x; y) coordinates or a list
, or any Coo object.numeric
the id(s) of the point that will become the new first point. See details below
for the method on Coo objects.numeric
the id of the ldk to use as id1, only on Out
matrix
of (x; y) coordinates, or a Coo object.coo_aligncalliper
,
coo_alignminradius
,
coo_alignxax
, coo_align
,
coo_baseline
, coo_bookstein
,
coo_boundingbox
,
coo_calliper
, coo_centdist
,
coo_center
, coo_centpos
,
coo_close
, coo_down
,
coo_dxy
, coo_extract
,
coo_flipx
, coo_force2close
,
coo_interpolate
, coo_jitter
,
coo_left
, coo_nb
,
coo_perimcum
, coo_perimpts
,
coo_perim
, coo_rev
,
coo_right
, coo_rotatecenter
,
coo_rotate
, coo_samplerr
,
coo_sample
, coo_scalex
,
coo_scale
, coo_shearx
,
coo_slice
,
coo_slidedirection
,
coo_slidegap
,
coo_smoothcurve
, coo_smooth
,
coo_template
, coo_trans
,
coo_trimbottom
, coo_trimtop
,
coo_trim
, coo_up
,
is_clockwise
, is_closed
,
is_equallyspacedradii
Other sliding functions: coo_slidedirection
,
coo_slidegap
stack(hearts)
# set the first landmark as the starting point
stack(coo_slide(hearts, ldk=1))
# set the 50th point as the starting point (everywhere)
stack(coo_slide(hearts, id1=50))
# set the id1-random-th point as the starting point (everywhere)
set.seed(123) # just for the reproducibility
id1_random <- sample(x=min(sapply(hearts$coo, nrow)), size=length(hearts),
replace=TRUE)
stack(coo_slide(hearts, id1=id1_random))
Run the code above in your browser using DataLab