Presentations

Modified

November 15, 2024

Tentative schedule as of 2024-11-21 10:33:57.470445.

Background

This page documents how the presentation schedule can be automatically generated from the student survey.

Download data

Code

googledrive::drive_auth(email = "rick.o.gilmore@gmail.com")

Code

if (!dir.exists('csv')) {
  dir.create('csv')
}

csv_fn <- "csv/psych-490-2024-fall-presentations.csv"

googledrive::drive_download(file = 'PSYCH 490.012 Fall 2024 Project Info (Responses)', path = csv_fn, type = 'csv', overwrite = TRUE)

File downloaded:

• 'PSYCH 490.012 Fall 2024 Project Info (Responses)'
  <id: 1MOnBaLxUGoYzOnfja_mj_VHW0Y52EYM0Zud9nAQ5Jsk>

Saved locally as:

• 'csv/psych-490-2024-fall-presentations.csv'

Code

if (file.exists(csv_fn)) {
  presentations_df <- readr::read_csv(csv_fn, show_col_types = FALSE)
} else {
  message("File not found: ", csv_fn)
  presentations_df <- NULL
}

Clean the data

Code

new_names <-
  c(
    "Timestamp",
    "Authors",
    "Title",
    "Format",
    "Give_talk",
    "Preferred_date"
  )

# Make new data frame with long and short names for reference
presentation_qs <- tibble::tibble(q_long = names(presentations_df), q_short = new_names)

# Swap out old (long) names for new (short) names
names(presentations_df) <- new_names

Select subsets by preferred date

Code

presentations_df <- presentations_df |>
  dplyr::filter(!stringr::str_detect(Authors, "Gilmore"))

fri_df <- presentations_df |>
  dplyr::filter(stringr::str_detect(Preferred_date, "Fri December 6"),
                Give_talk == "Yes")

mon_df <- presentations_df |>
  dplyr::filter(stringr::str_detect(Preferred_date, "Mon"),
                Give_talk == "Yes")

wed_df <- presentations_df |>
  dplyr::filter(stringr::str_detect(Preferred_date, "Wed"),
                Give_talk == "Yes")

no_pref <- presentations_df |>
  dplyr::filter(stringr::str_detect(Preferred_date, "No preference"),
                Give_talk == "Yes")

times <- c("04:45", "05:00", "05:15")

Day 1: Friday, December 6, 2024

Code

n_fri <- dim(fri_df)[1]
n_no_pref <- dim(no_pref)[1]

n_fri_slots_free <- length(times) - n_fri

new_fri_df <- rbind(fri_df, no_pref[1:n_fri_slots_free,])
new_fri_df$Time <- times

new_fri_df |>
  dplyr::filter(!is.na(Authors)) |>
  dplyr::arrange(Time) |>
  dplyr::select(Time, Authors, Title, Format) |>
  kableExtra::kable(format = 'html') |>
  kableExtra::kable_classic()

Time	Authors	Title	Format
04:45	Haley Curnow	Replication in Educational Research	Lesson plan/class exercise
05:00	Desiree Milosh	Replications in the Criminal Justice System	In-class talk
05:15	Evan Butler & Jacob Cerneskie	Research in the Media	In-class talk

Day 2: Monday, December 9, 2024

Code

mon_df$Time <- times[1:dim(mon_df)[1]]

mon_df |>
  dplyr::filter(!is.na(Authors)) |>
  dplyr::arrange(Time) |>
  dplyr::select(Time, Authors, Title, Format) |>
  kableExtra::kable(format = 'html') |>
  kableExtra::kable_classic()

Time	Authors	Title	Format
04:45	Rylee Cox	Efficacy and Reproducibility of Guardian Caps to Prevent Concussions in the National Football League (most likely will change title)	In-class talk
05:00	Sage Park	Aphantasia and Open Science	Research project (& write-up)

Day 3: Wednesday, December 11, 2024

Code

wed_df$Time <- times[1:dim(wed_df)[1]]

wed_df |>
  dplyr::filter(!is.na(Authors)) |>
  dplyr::arrange(Time) |>
  dplyr::select(Time, Authors, Title, Format) |>
  kableExtra::kable(format = 'html') |>
  kableExtra::kable_classic()

Time	Authors	Title	Format
04:45	Samuel Casimir	Rind report	Opinion piece
05:00	Gabriel Lehman	Aggression in Video Games and Replicating Research	Research project (& write-up)
05:15	Noé Sitbon-Taylor	History of p-value	In-class talk