revise math_dropout data

mccarthy-m-g · Jun 17, 2024 · a121afc · a121afc
1 parent ef952a0
commit a121afc
Show file tree

Hide file tree

Showing 5 changed files with 9,569 additions and 9,570 deletions.
diff --git a/R/data.R b/R/data.R
@@ -581,11 +581,10 @@ NULL
 #'
 #' \describe{
 #'   \item{`id`}{Participant ID.}
-#'   \item{`last_term`}{The term a student stopped enrolling in mathematics courses.}
-#'   \item{`woman`}{Binary indicators for whether the student identified as a woman.}
-#'   \item{`censor`}{Censoring status.}
-#'   \item{`term`}{Term each record corresponds to.}
+#'   \item{`term`}{Academic term each record corresponds to.}
 #'   \item{`event`}{Binary indicator for whether the student stopped enrolling in mathematics courses at a given term.}
+#'   \item{`censor`}{Censoring status.}
+#'   \item{`woman`}{Binary indicators for whether the student identified as a woman.}
 #' }
 #' @source
 #' Graham, S. E. (1997). The exodus from mathematics: When and why?

diff --git a/data-raw/data.R b/data-raw/data.R
@@ -240,12 +240,13 @@ math_dropout <- tidy_data$mathdropout_pp |>
     last_term = lastpd
   ) |>
   select(
-    -c(one, ltime, fltime),
+    -c(last_term, one, ltime, fltime),
     -starts_with("hs"),
     -starts_with("coll"),
     -starts_with("fhs"),
     -starts_with("fcoll")
-  )
+  ) |>
+  relocate(id, term, event, censor, woman)
 
 # Chapter 13 ------------------------------------------------------------------