Presentations

Modified

December 9, 2024

Tentative schedule as of 2024-12-12 11:20:16.824476.

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

Summary statistics

Code

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

presentations_df |>
  dplyr::select(Give_talk, Format) |>
  dplyr::count(Format, Give_talk) |>
  kableExtra::kable(format = "html") |>
  kableExtra::kable_classic()

Format	Give_talk	n
In-class talk	Yes	5
Lesson plan/class exercise	Yes	1
Opinion piece	No	2
Opinion piece	Yes	2
Research project (& write-up)	No	4
Research project (& write-up)	Yes	2

A total of n= 16 presenters have completed the survey as of 2024-12-12 11:20:18.966339.

Select subsets by preferred date

Code

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") |>
    dplyr::filter(!stringr::str_detect(Authors, "Sage"))

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

fri13_df <- presentations_df |>
  dplyr::filter(stringr::str_detect(Authors, "Fasenmyer|Sage|Lehman")) 

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

times <- c("03:40", "03:55", "04:10")

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
03:40	Haley Curnow	Replication in Educational Research	Lesson plan/class exercise
03:55	Desiree Milosh	Replications in the Criminal Justice System	In-class talk
04:10	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
03:40	Rylee Cox	Efficacy and Reproducibility of Guardian Caps to Prevent Concussions in the National Football League (most likely will change title)	In-class talk
03:55	Emily Acosta, Manny Winikur, Sean Haroutunian	Importance of Norms and Counternorms in the Field of Scientific Experimentations	Opinion piece

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
03:40	Samuel Casimir	Rind report	Opinion piece
03:55	Noé Sitbon-Taylor	History of p-value	In-class talk

Day 4: Friday, December 13, 2024

Code

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

fri13_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
03:40	Gabriel Lehman	Aggression in Video Games and Replicating Research	Research project (& write-up)
03:55	Sage Park	Aphantasia and Open Science	Research project (& write-up)
04:10	Nathan Fasenmyer	Replication Discrepancies in Neuroscience	In-class talk