R/final_data.R

In doomlab/learnSTATS: Introduction to Statistics (ANLY 500)

#' Exam Data Set Up
#'
#' This function grabs the midterm/final data,
#' randomizes it for each student,
#' and allows them to each have a unique dataset.
#'
#' @param idnum Student ID number to set up data.
#'
#' @return midterm dataset
#'
#' @keywords student answers, datasets
#' @import faux
#' @import stats
#' @export

final_data <- function(idnum = NULL) {

  if (is.null(idnum)){
    warning("You must put in an id number.")
  } else {
    data("final")
    final <- na.omit(final)

    set.seed(idnum)

    final <- sim_df(data = final, #data frame
                      n = sample(50:100, 1),#how many of each group
                      between = c("gender", "perception"))
    final <- final[ , -1]
    final$distance <- abs(final$distance)
    final$length <- abs(final$length)
    final$cyberloafing <- abs(final$cyberloafing)

    return(final)
  }

}

#' @rdname final_data
#' @export