New datasets : pumpkins

Author: GuyliannEngels

R/data.R

@@ -16,3 +16,27 @@
 #' }
 #' @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"
+
+#' Pumpkin seeds Dataset
+#'
+#' A total of 2500 pumpkin seed's images were taken for the two species (Çerçevelik and Ürgüp Sivrisi),
+#' processed and feature inferences were made. 12 morphological features were obtained for each pumpkin seeds.
+#'
+#' @format A data frame with 13 variables and 2500 observations:
+#' \describe{
+#'   \item{\code{area}}{The number of pixels within the borders of a pumpkin seed.}
+#'   \item{\code{perimeter}}{The circumference in pixels of a pumpkin seed.}
+#'   \item{\code{major_axis_length}}{The maximal axis distance of a pumpkin seed.}
+#'   \item{\code{minor_axis_length}}{The small axis distance of a pumpkin seed.}
+#'   \item{\code{convex_area}}{The ratio of a pumpkin seed area to the bounding box pixels.}
+#'   \item{\code{equiv_diameter}}{The area of the pumpkin seed by four and dividing by the number pi, and taking the square root.}
+#'   \item{\code{eccentricity}}{The eccentricity of a pumpkin seed.}
+#'   \item{\code{solidity}}{The convex condition of the pumpkin seeds.}
+#'   \item{\code{extent}}{The ratio of a pumpkin seed area to the bounding box pixels.}
+#'   \item{\code{roundness}}{The ovality of pumpkin seeds without considering its distortion of the edges.}
+#'   \item{\code{aspect_ratio}}{The aspect ratio of the pumpkin seeds.}
+#'   \item{\code{compactness}}{The area of the pumpkin seed relative to the area of the circle with the same circumference.}
+#'   \item{\code{class}}{A **factor** with two levels: `"Cercevelik"`, and `"Urgup Sivrisi"`.}
+#' }
+#' @source {KOKLU, M., SARIGIL, S. and OZBEK, O. (2021). The use of machine learning methods in classification of pumpkin seeds (Cucurbita pepo L.). Genetic Resources and Crop Evolution, 68(7), 2713-2726. doi:10.1007/s10722-021-01226-0}
+"pumpkins"

data-raw/pumpkin_seeds.R

@@ -0,0 +1,14 @@
+# Pumpkins seeds Data Set
+pumpkins <- data.io::read(file = "data-raw/pumpkin_seeds.rds")
+## rename variable
+vars <- tolower(names(pumpkins))
+vars[vars == "aspect_ration"] <- "aspect_ratio"
+names(pumpkins) <- vars
+
+## change factor levels
+pumpkins$class[pumpkins$class == "Çerçevelik"] <- "Cercevelik"
+pumpkins$class[pumpkins$class == "Ürgüp Sivrisi"] <- "Urgup Sivrisi"
+pumpkins$class <- as.factor(pumpkins$class)
+
+# write data
+usethis::use_data(pumpkins, overwrite = TRUE)