Usage example

As an example we will use measurements of penguins made at Palmer Station, Antarctica.

Since the measurements are in different units, we supply an appropriate scaling.

library(langevitour)
library(palmerpenguins)

completePenguins <- na.omit(penguins[,c(1,3,4,5,6)])
completePenguins
#> # A tibble: 342 × 5
#>    species bill_length_mm bill_depth_mm flipper_length_mm body_mass_g
#>    <fct>            <dbl>         <dbl>             <int>       <int>
#>  1 Adelie            39.1          18.7               181        3750
#>  2 Adelie            39.5          17.4               186        3800
#>  3 Adelie            40.3          18                 195        3250
#>  4 Adelie            36.7          19.3               193        3450
#>  5 Adelie            39.3          20.6               190        3650
#>  6 Adelie            38.9          17.8               181        3625
#>  7 Adelie            39.2          19.6               195        4675
#>  8 Adelie            34.1          18.1               193        3475
#>  9 Adelie            42            20.2               190        4250
#> 10 Adelie            37.8          17.1               186        3300
#> # … with 332 more rows

scale <- apply(completePenguins[,-1], 2, sd)*4

langevitour(completePenguins[,-1], completePenguins$species, scale=scale, pointSize=2)