Data migrated from BioDataScience1

Author: phgrosjean

.Rbuildignore

@@ -13,3 +13,6 @@ Makefile
 ^\.Rproj\.user$
 ^.*\.Rproj$
 LICENSE.md
+
+data-raw
+data-raw/*

NEWS.md

@@ -1,7 +1,8 @@
 # BioDataScience 2020.0.0
 
 - Clean up finished. Most code moved to learndown. Learnr tutorials and Shiny
-applications moved to BioDataScience1.
+applications moved to {BioDataScience1}.
+-The datasets`biometry` and `biometrie` are left here.
 - The package now contains `config()`, `sign_in()` and `sign_out()` only for
 database access and user identification.
 

R/data.R

@@ -0,0 +1,42 @@
+#'Mesure de biometrie humaine
+#'
+#'Compilation d'un ensemble de mesures biometriques réalisée par les étudiants
+#' de l'UMONS dans le cadre du cours de biostatistique et probabilités
+#' entre 2013 et 2017.
+#'
+#' @format Un tableau de données de 7 variables:
+#' \describe{
+#'  \item{\code{genre}}{une variable facteur à deux niveaux :
+#'    Homme (H) et Femme (F).}
+#'  \item{\code{ddn}}{Date de naissance (YYYY-MM-DD).}
+#'  \item{\code{masse}}{Masse des individus (en kg).}
+#'  \item{\code{taille}}{Taille des individus (en cm).}
+#'  \item{\code{poignet}}{Circomférence du poignet (en mm).}
+#'  \item{\code{ddm}}{Date des mesures.}
+#'  \item{\code{age}}{Age des individus lors de la prise des mesures.}
+#' }
+#'
+#' @examples
+#' data(biometrie)
+#' class(biometrie)
+#' head(biometrie)
+#' plot(biometrie)
+"biometrie"
+
+#' Measure of human biometry at Hainaut, Belgium
+#'
+#' Measure of human biometry to study health status with several index
+#' as Body Weight Index (BMI) between 2013 an 2017.
+#'
+#' @format A data frame with 7 variables and 395 observations:
+#' \describe{
+#'   \item{\code{gender}}{A **factor** with two levels: `"Men"`, and `"Women"`.}
+#'   \item{\code{day_birth}}{Day of birth (YYYY-MM-DD).}
+#'   \item{\code{weight}}{Weight (in kg).}
+#'   \item{\code{height}}{Height (in cm).}
+#'   \item{\code{wrist}}{Wrist circumfernce (in mm).}
+#'   \item{\code{year_measure}}{Year of the biometric measure.}
+#'   \item{\code{age}}{Age of people.}
+#' }
+#'
+"biometry"

data-raw/biometrie.R

@@ -0,0 +1,8 @@
+SciViews::R
+
+biometrie <- read(file = "data-raw/biometrie.rds")
+biometrie <- filter(biometrie, masse != "NA")
+
+biometrie <- select(biometrie, - year)
+#
+devtools::use_data(biometrie, overwrite = TRUE)

data-raw/biometrie.rds

@@ -0,0 +1,25 @@
+SciViews::R
+
+biometry <- read(file = "data-raw/biometry.rds")
+
+#rename variable french -> english and filter NA
+
+biometry %>.%
+  rename(., gender = genre,
+         day_birth = ddn,
+         year = year,
+         weight = masse,
+         height = taille,
+         wrist = poignet,
+         year_measure = ddm,
+         age = age) %>.%
+  filter(., weight != "NA") %>.%
+  select(., - year)-> biometry
+
+## Recodage de biometry$gender
+biometry$gender <- recode(biometry$gender,
+               "H" = "M",
+               "F" = "W")
+
+#
+devtools::use_data(biometry, overwrite = TRUE)

data-raw/biometry.R

@@ -0,0 +1,27 @@
+.biometry_en <- function(biometry, labels_only = FALSE,
+                           as_labelled = FALSE) {
+  biometry <- labelise(biometry, self = FALSE,
+                         label = list(
+                           gender = "Gender",
+                           day_birth = "Day of birth",
+                           weight = "Weight",
+                           height = "Height",
+                           wrist = "Wrist circumference",
+                           year_measure = "Year of the measure",
+                           age = "Age"),
+                         units = list(
+                           gender = NA,
+                           day_birth = NA,
+                           weight = "kg",
+                           height = "cm",
+                           wrist = "mm",
+                           year_measure = "year",
+                           age = "year"),
+                         as_labelled = as_labelled)
+
+  if (!isTRUE(labels_only)) {
+    levels(biometry$gender) <- c("M", "W")
+  }
+
+  biometry
+}