## code to prepare `AllWhalesLungeTableTrunc` dataset goes here
library(tidyverse)
LungeBeatsTable <- read_csv("data-raw/LungeBeatsTable.csv")
AllWhalesLungeTableTrunc <- read_csv("data-raw/AllWhalesLungeTableTrunc.csv")
AllWhalesLungeTableTrunc$FinalGyroOsFreq = LungeBeatsTable$FinalGyroOsFreq
AllWhalesLungeTableTrunc$EnCostMSByUSquared = (AllWhalesLungeTableTrunc$EnCostkJ / AllWhalesLungeTableTrunc$MassSKR) / (AllWhalesLungeTableTrunc$SpdBegDecel^2)
usethis::use_data(AllWhalesLungeTableTrunc, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.