data-raw/brain_data.R

In tkoomar/sffs: Simple Features For Science

#' Example data for use with \code{\link{sf_brain_outer}} and \code{\link{sf_brain_slice}}
#'
#' @format A dataframe
#' \describe{
#'   \item{id}{short name of brain region}
#'   \item{`12 pcw`}{expression at 12 pcw }
#'   \item{`16 pcw`}{expression at 16 pcw }
#'   \item{`21 pcw`}{expression at 21 pcw }
#'   \item{`24 pcw`}{expression at 24 pcw }
#'   \item{`37 pcw`}{expression at 37 pcw }
#'   \item{`4 mos`}{expression at 4 mos }
#'   \item{`1 yrs`}{expression at 1 yrs }
#'   \item{`2 yrs`}{expression at 2 yrs }
#'   \item{`3 yrs`}{expression at 3 yrs }
#'   \item{`8 yrs`}{expression at 8 yrs }
#'   \item{`11 yrs`}{expression at 11 yrs }
#'   \item{`13 yrs`}{expression at 13 yrs }
#'   \item{`18 yrs`}{expression at 18 yrs }
#'   \item{`19 yrs`}{expression at 19 yrs }
#'   \item{`21 yrs`}{expression at 21 yrs }
#'   \item{`23 yrs`}{expression at 23 yrs }
#'   \item{`30 yrs`}{expression at 30 yrs }
#'   \item{`36 yrs`}{expression at 36 yrs }
#'   \item{`37 yrs`}{expression at 37 yrs }
#'   \item{`40 yrs`}{expression at 40 yrs }
#' }
#' @source \url{https://github.com/ethanbahl/cerebroViz}
#'
#' @examples
#' require(sf)
#' sf_brain <- sffs::sf_brain_outer
#' sf_brain_data <- sffs::brain_data
#' sf_brain %>%
#'     left_join(sf_brain_data) %>%
#'     select(id, ends_with('pcw')) %>%
#'     plot()
"brain_data"


require(tidyverse)
require(here)

brain_data <- read_csv(here("data-raw/brain_data.csv"))

usethis::use_data(brain_data)