Add a new dataset

Author: GuyliannEngels

.Rbuildignore

@@ -40,3 +40,5 @@ devel
 rsconnect/*
 rsconnect
 
+data-raw
+data-raw/*

DESCRIPTION

@@ -18,3 +18,4 @@ BugReports: https://github.com/BioDataScience-Course/BioDataScience3/issues
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.1.2
 VignetteBuilder: knitr
+LazyData: true

R/data.R

@@ -0,0 +1,18 @@
+#' Rice Dataset Commeo and Osmancik
+#'
+#' A total of 3810 rice grain's images were taken for the two species (Cammeo and Osmancik),
+#' processed and feature inferences were made. Seven morphological features were obtained for each grain of rice.
+#'
+#' @format A data frame with 8 variables and 3810 observations:
+#' \describe{
+#'   \item{\code{area}}{The  number  of  pixels  within  the boundaries of the rice grain.}
+#'   \item{\code{perimeter}}{The perimeter of the rice grain.}
+#'   \item{\code{major_axis_length}}{The longest line that can be drawn on the rice  grain.}
+#'   \item{\code{minor_axis_length}}{The shortest line that can be drawn on the rice  grain.}
+#'   \item{\code{eccentricity}}{It measures how round the ellipse, which has  the  same  moments  as  the  rice  grain, is.}
+#'   \item{\code{convex_area}}{The the  pixel  count  of  the  smallest convex shell of the region formed by the rice grain.}
+#'   \item{\code{extent}}{the ratio of the region formed by the rice grain to the bounding box pixels.}
+#'   \item{\code{class}}{A **factor** with two levels: `"Cammeo"`, and `"Osmancik"`.}
+#' }
+#' @source {Cinar, I. and Koklu, M. (2019). Classification of Rice Varieties Using Artificial Intelligence Methods. International Journal of Intelligent Systems and Applications in Engineering, vol.7, no.3 (Sep. 2019), pp.188-194. doi:10.18201/ijisae.2019355381}
+"rice"

data-raw/rice.R

@@ -0,0 +1,6 @@
+# Rice (Cammeo and Osmancik) Data Set
+rice <- data.io::read(file = "data-raw/rice.rds")
+## rename variable
+names(rice) <- tolower(names(rice))
+# write data
+usethis::use_data(rice, overwrite = TRUE)

data-raw/rice.rds

@@ -0,0 +1,28 @@
+.rice_en <- function(rice, labels_only = FALSE, as_labelled = FALSE) {
+  rice <- labelise(rice, self = FALSE,
+    label = list(
+      area               = "Area",
+      perimeter          = "Perimeter",
+      major_axis_length  = "Major axis length",
+      minor_axis_length  = "Minor axis length",
+      eccentricity       = "Eccentricity",
+      convex_area        = "Convex Area",
+      extent             = "Extent",
+      class              = "Class"),
+    units = list(
+      area               = "px^2",
+      perimeter          = "px",
+      major_axis_length  = "px",
+      minor_axis_length  = "px",
+      eccentricity       = NA,
+      convex_area        = NA,
+      extent             = NA,
+      class              = NA),
+    as_labelled = as_labelled)
+
+  #if (!isTRUE(labels_only)) {
+  # Nothing to do
+  #}
+
+  rice
+}

data/rice.rda

@@ -0,0 +1,28 @@
+.rice_fr <- function(rice, labels_only = FALSE, as_labelled = FALSE) {
+  rice <- labelise(rice, self = FALSE,
+    label = list(
+      area               = "Aire",
+      perimeter          = "Perimètre",
+      major_axis_length  = "Longueur de l'axe majeur",
+      minor_axis_length  = "Longueur de l'axe mineur",
+      eccentricity       = "Excentricité",
+      convex_area        = "Aire convexe",
+      extent             = "Extent",
+      class              = "Classe"),
+    units = list(
+      area               = "px^2",
+      perimeter          = "px",
+      major_axis_length  = "px",
+      minor_axis_length  = "px",
+      eccentricity       = NA,
+      convex_area        = NA,
+      extent             = NA,
+      class              = NA),
+    as_labelled = as_labelled)
+
+  #if (!isTRUE(labels_only)) {
+  # Nothing to do
+  #}
+
+  rice
+}