R/Momocs2_datasets.R

In MomX/Momocs2: Modern Morphometrics and Shape Manipulation

#' Some bottles
#'
#' A dataset containing 40 bottles outlines
#'
#' @format A [mom_tbl] with:
#' \describe{
#'   \item{coo}{outline coordinates}
#'   \item{type}{of drink}
#'   \item{fake}{a fake vector}
#' }
#' @source todo
"bot"

#' Outlines of hearts
#'
#' A dataset containing 240 hand-drawn hearts with 4 landmarks
#'
#' @source We thank the fellows of the Ecology Department of
#' the French Institute of Pondicherry that drawn the hearts.
#' They then have been scanned, smoothed, scaled, centered,
#' and downsampled to 80 coordinates per outline.
"hearts"

#' Outlines of olea stones
#'
#' @format A [mom_tbl] with:
#' \describe{
#'   \item{coo}{curve coordinates}
#'   \item{var}{olive taxa}
#'   \item{domes}{domestication status}
#'   \item{view}{picture view}
#'   \item{ind}{individual number}
#' }
#' @source todo
"olea"

# dplyr::bind_cols(
#   tibble::tibble(coo=x$coo %>% purrr::map(coo_single) %>% coo_list()),
#   x$fac
# ) %>% mom() -> olea
# usethis::use_data(olea)