R/exercise_1_3.R

In JonasEngstrom/prexRiswr: Solutions for Exercises in Introductory Statistics with R

#' ISWR exercise 1.3
#'
#' @description Solution to exercise 1.1 from Basics in Dalgaard P. Introductory
#' statistics with R. New York : Springer; 2008.
#'
#' @description “Write the logical expression to use to extract girls between 7 and 14
#' years of age in the `juul` data set.”
#'
#' @return The specified selection from the `juul` dataset.
#' @import ISwR
#' @export
#'
#' @examples
#' exercise_1_3()
exercise_1_3 <- function() {
  juul[juul$age > 7 & juul$age < 14 & !is.na(juul$age), ]
}