## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## -----------------------------------------------------------------------------
library(langevitour)
library(palmerpenguins)

completePenguins <- na.omit(penguins[,c(1,3,4,5,6)])
completePenguins

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

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

