Skip to content

Commit 3ec7d8d

Browse files
schuckersschuckers
authored
Add files via upload
1 parent 010b67a commit 3ec7d8d

File tree

13 files changed

+5664
-0
lines changed

13 files changed

+5664
-0
lines changed

‎obstacle_competitions/american_ninja_warrior/American_Ninja_Warrior_Logo.jpg‎

12.8 KB
Loading

‎obstacle_competitions/american_ninja_warrior/README‎

Lines changed: 22 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,22 @@
1+
This repository contains files for a SCORE module for teaching the Kaplan-Meier estimator and basic survival analysis using American Ninja Warrior data. The module is designed for use in an intermediate statistics course or independent learning and uses R to teach the topics.
2+
3+
This module is best viewed in HTML format. A preprint version of this module can be viewed at https://kgfitzgerald.github.io/baylor_apu_score/anw/kaplan_meier/. The module can also be viewed locally by opening the R Project kaplan_meyer.RProj, then opening the R Quarto file index.qmd, and then clicking "Render".
4+
5+
The following files are included in this repository:
6+
7+
- `kaplan_meyer.RProj`: R Project file for the module
8+
9+
- `index.qmd`: R Quarto file for the module
10+
11+
- `student_template.qmd`: R Quarto file for that can be downloaded to answer questions from the module with code and text. This could be turned in to an instructor if used in a course.
12+
13+
- `anw_2021_stage1.csv`: Data file used for most of the module containing information about what obstacle the competitors in the 2021 American Ninja Warrior Stage 1 competition fell on. The data is derived largely from https://www.americanninjawarriornation.com/2021/8/30/22639995/american-ninja-warrior-season-13-2021-full-results-from-the-national-finals-stage-one. Additional columns such as `sex` were individually researched and added to the data.
14+
15+
- `anw_2023_stage1.csv`: Data file used for challenge questions of the module containing information about what obstacle the competitors in the 2023 American Ninja Warrior Stage 1 competition fell on. The data is derived largely from https://sasukepedia.fandom.com/wiki/American_Ninja_Warrior_15#Results_11.
16+
17+
- `anw_2021_stage1_glossary.csv`: Data glossary for the `anw_2021_stage1.csv` data file.
18+
19+
- `anw_2023_stage1_glossary.csv`: Data glossary for the `anw_2023_stage1.csv` data file.
20+
21+
- `American_Ninja_Warrior_logo.jpg` and `Warped_Wall.jpg`: Image files used in the `index.qmd` file.
22+

‎obstacle_competitions/american_ninja_warrior/Warped_Wall.jpg‎

2.98 MB
Loading

‎obstacle_competitions/american_ninja_warrior/anw_2021_stage1.csv‎

Lines changed: 70 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,70 @@
1+
name,sex,obstacle,obstacle_number,cause
2+
Meagan Martin,F,Slide Surfer,1,Fall
3+
DeShawn Harris,M,Slide Surfer,1,Fall
4+
Heather Weissinger,F,Swinging Blades,2,Fall
5+
Cam Baumgartner,M,Swinging Blades,2,Fall
6+
Brittney Durant,F,Swinging Blades,2,Fall
7+
Casey Rothschild,F,Swinging Blades,2,Fall
8+
Brett Hernandez Strong,M,Swinging Blades,2,Fall
9+
Jay Lewis,M,Double Dipper,3,Fall
10+
Amir Malik,M,Double Dipper,3,Fall
11+
Megan Rowe,F,Double Dipper,3,Fall
12+
Rachel Degutz,F,Double Dipper,3,Fall
13+
Will Schlageter,M,Double Dipper,3,Fall
14+
Francisco Barajas,M,Double Dipper,3,Fall
15+
Bob Reese,M,Double Dipper,3,Fall
16+
Abel Gonzalez,M,Jumping Spider,4,Fall
17+
Nate Hansen,M,Jumping Spider,4,Fall
18+
Devan Alexander,M,Jumping Spider,4,Fall
19+
Owen Dyer,M,Jumping Spider,4,Fall
20+
Ava Colasanti,F,Jumping Spider,4,Fall
21+
Dan Champagne,M,Jumping Spider,4,Fall
22+
Eric Middleton,M,Jumping Spider,4,Fall
23+
Alex Begolly,M,Jumping Spider,4,Fall
24+
Cara Mack,F,Jumping Spider,4,Fall
25+
John Uga,M,Jumping Spider,4,Fall
26+
Deren Perez,M,Tire Run,5,Fall
27+
Lance Pekus,M,Tire Run,5,Fall
28+
Zhanique Lovett,F,Tire Run,5,Fall
29+
True Becker,M,Tire Run,5,Fall
30+
Jonah Muñoz,M,Tire Run,5,Fall
31+
Nate Pardo,M,Dipping Birds,7,Fall
32+
Isabella Wakeham,F,Dipping Birds,7,Fall
33+
Jody Avila,M,Dipping Birds,7,Fall
34+
Hunter Guerard,M,Warped Wall,6,Time
35+
Lucas Reale,M,The High Road,8,Fall
36+
Joe Moravsky,M,The High Road,8,Fall
37+
Mike Beadle,M,Fly Hooks,8,Fall
38+
Jamie Rahn,M,Fly Hooks,8,Fall
39+
R.J. Roman,M,Fly Hooks,8,Fall
40+
Tiana Webberley,F,Dipping Birds,7,Time
41+
Caiden Madzelan,M,Fly Hooks,8,Time
42+
Christian Youst,M,Fly Hooks,8,Time
43+
Brett Sims,M,Fly Hooks,8,Time
44+
Ryan Meeks,M,Cargo Net,9,Complete
45+
Isaiah Wakeham,M,Cargo Net,9,Complete
46+
Tyler Yamauchi,M,Cargo Net,9,Complete
47+
Max Feinberg,M,Cargo Net,9,Complete
48+
Donovan Metoyer,M,Cargo Net,9,Complete
49+
Isaiah Thomas,M,Cargo Net,9,Complete
50+
Tyler Gillett,M,Cargo Net,9,Complete
51+
Sean Bryan,M,Cargo Net,9,Complete
52+
Jonathan Godbout,M,Cargo Net,9,Complete
53+
Kai Beckstrand,M,Cargo Net,9,Complete
54+
Kevin Carbone,M,Cargo Net,9,Complete
55+
Josiah Pippel,M,Cargo Net,9,Complete
56+
Adam Rayl,M,Cargo Net,9,Complete
57+
Elijah Browning,M,Cargo Net,9,Complete
58+
Vance Walker,M,Cargo Net,9,Complete
59+
Enzo DeFarrari Wilson,M,Cargo Net,9,Complete
60+
Kaden Lebsack,M,Cargo Net,9,Complete
61+
Brian Burkhardt,M,Cargo Net,9,Complete
62+
Anthony Porter,M,Cargo Net,9,Complete
63+
Jesse Labreck,F,Cargo Net,9,Complete
64+
Mike Silenzi,M,Cargo Net,9,Complete
65+
Kyle Soderman,M,Cargo Net,9,Complete
66+
Matt Bradley,M,Cargo Net,9,Complete
67+
Austin Gray,M,Cargo Net,9,Complete
68+
Tage Harrington,M,Cargo Net,9,Complete
69+
Jake Murray,M,Cargo Net,9,Complete
70+
Joe Moravsky (Safety Pass),M,Cargo Net,9,Complete

‎obstacle_competitions/american_ninja_warrior/anw_2021_stage1_glossary.csv‎

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,6 @@
1+
Variable,Description
2+
name,The name of the competitor
3+
sex,The sex of the competitor (M or F)
4+
obstacle,"The name of the obstacle that the competitor failed on. If they completed the course the obstacle is ""Complete""."
5+
obstacle_number,"The order of the obstacle that the competitor failed on. 1 means they failed on the first obstacle, 2 means they failed on the second obstacle, and so on. "
6+
cause,"The cause of the competitor's failure. This is either ""Fall"", ""Time"", or ""Complete"""

‎obstacle_competitions/american_ninja_warrior/anw_2023_stage1.csv‎

Lines changed: 75 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,75 @@
1+
name,sex,obstacle,obstacle_number,cause
2+
Emily Gardner,F,Gambler,5,Fall
3+
Jody Avila,M,Thread the Needle,8,Fall
4+
Kevin Rodriguez,M,Gambler,5,Fall
5+
Riley Porter,F,Jumping Spider,4,Fall
6+
Benjamin Drake,M,Giant Rollercoaster,3,Fall
7+
Vance Walker,M,Thread the Needle,8,Complete
8+
Madelyn Madaras,F,Giant Rollercoaster,3,Fall
9+
Sebastian Chrismer,M,Jumping Spider,4,Fall
10+
Sandy Zimmerman,F,Three Ring Circus,2,Fall
11+
Elijah Browning,M,Thread the Needle,8,Fall
12+
Cade Perkins,M,Jumping Spider,4,Fall
13+
Rachel Degutz,F,Gambler,5,Fall
14+
Brett Sims,M,Thread the Needle,8,Fall
15+
James McGrath,M,Dipping Birds,7,Time
16+
Flip Rodriquez,M,Dipping Birds,7,Time
17+
Matt D'Amico,M,Giant Rollercoaster,3,Fall
18+
Cam Baumgarner,M,Jumping Spider,4,Fall
19+
Barclay Stockett,F,Gambler,5,Time
20+
Enzo Wilson,M,Thread the Needle,8,Complete
21+
Brandon Thomas,M,Thread the Needle,8,Fall
22+
Johnny Brown,M,Giant Rollercoaster,3,Fall
23+
Bob Reese,M,Thread the Needle,8,Fall
24+
Erick Zamorano,M,Giant Rollercoaster,3,Fall
25+
Jonathan Bange,M,Thread the Needle,8,Fall
26+
Karsten Williams,M,Dipping Birds,7,Time
27+
Isaiah Thomas,M,Thread the Needle,8,Complete
28+
Joseph Rouse,M,Gambler,5,Time
29+
Ethan Bartnicki,M,Thread the Needle,8,Complete
30+
Emma Pereyra,F,Jumping Spider,4,Fall
31+
Jaleesa Himka,F,Gambler,5,Fall
32+
Barry Boyd,M,Jumping Spider,4,Fall
33+
David Bergstrom-Wright,M,Gambler,5,Fall
34+
Ashley Bergstrom,F,Three Ring Circus,2,Fall
35+
Caleb Bergstrom,M,Thread the Needle,8,Complete
36+
Kai Beckstrand,M,Jumping Spider,4,Fall
37+
Luke Dillon,M,Thread the Needle,8,Complete
38+
Joe Moravsky,M,Thread the Needle,8,Complete
39+
Scott Behrends,M,Gambler,5,Fall
40+
Taylor Johnsosn,F,Jumping Spider,4,Fall
41+
Jonathan Godbout,M,Jumping Spider,4,Fall
42+
Grant Kiningham,M,Thread the Needle,8,Fall
43+
Daniel Gil,M,Thread the Needle,8,Complete
44+
Vinnie Castranova,M,Jumping Spider,4,Fall
45+
Austin Hair,M,Gambler,5,Fall
46+
Sean Bryan,M,Gambler,5,Fall
47+
Addy Herman,F,Gambler,5,Time
48+
Noah Meunier,M,Thread the Needle,8,Complete
49+
Najee Richardson,M,Dipping Birds,7,Fall
50+
Max Feinberg,M,Gambler,5,Fall
51+
Alex Romer,M,Dipping Birds,7,Time
52+
David Campbell,M,Gambler,5,Fall
53+
Nacssa Garemore,M,Thread the Needle,8,Complete
54+
Jera Boyd,M,Thread the Needle,8,Complete
55+
Josiah Pippel,M,Thread the Needle,8,Complete
56+
Kyle Soderman,M,Thread the Needle,8,Fall
57+
Clarisa Morris,F,Three Ring Circus,2,Fall
58+
RJ Roman,M,Thread the Needle,8,Fall
59+
Maggie Owen,F,Giant Rollercoaster,3,Fall
60+
Mike Silenzi,M,Gambler,5,Fall
61+
Jackson Twait,M,Thread the Needle,8,Complete
62+
Mady Howard,F,Jumping Spider,4,Fall
63+
Ramcis Valdez,M,Thread the Needle,8,Fall
64+
Cal Plohoros,M,Dipping Birds,7,Fall
65+
Zhanique Lovett,F,Three Ring Circus,2,Fall
66+
Ben Behrends,M,Dipping Birds,7,Time
67+
Austin Gray,M,Thread the Needle,8,Complete
68+
Nate Hansen,M,Gambler,5,Fall
69+
Taylor Greene,F,Dipping Birds,7,Fall
70+
Isaiah Wakeham,M,Thread the Needle,8,Fall
71+
Evan Andrews,M,Thread the Needle,8,Complete
72+
Kaden Lebsack,M,Thread the Needle,8,Complete
73+
Evan Bomengen,M,Jumping Spider,4,Fall
74+
Sylas Snider,M,Jumping Spider,4,Fall
75+
RJ Roman 2nd run,M,Thread the Needle,8,Complete

‎obstacle_competitions/american_ninja_warrior/anw_2023_stage1_glossary.csv‎

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,6 @@
1+
Variable,Description
2+
name,The name of the competitor
3+
sex,The sex of the competitor (M or F)
4+
obstacle,"The name of the obstacle that the competitor failed on. If they completed the course the obstacle is ""Complete""."
5+
obstacle_number,"The order of the obstacle that the competitor failed on. 1 means they failed on the first obstacle, 2 means they failed on the second obstacle, and so on. "
6+
cause,"The cause of the competitor's failure. This is either ""Fall"", ""Time"", or ""Complete"""

‎obstacle_competitions/american_ninja_warrior/fix_anw_data.R‎

Lines changed: 68 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,68 @@
1+
library(tidyverse)
2+
ninja <- read_csv("anw//kaplan_meier//anw_2021_stage1.csv")
3+
ninja_obstacles <- distinct(ninja, obstacle_number, obstacle) |>
4+
add_row(obstacle_number = 6, obstacle = "Warped Wall")
5+
# 1 1 Slide Surfer
6+
# 2 2 Swinging Blades
7+
# 3 3 Double Dipper
8+
# 4 4 Jumping Spider
9+
# 5 5 Tire Run
10+
# 6 6 Warped Wall
11+
# 7 7 Dipping Birds
12+
# 8 8 The High Road
13+
# 9 8 Fly Hooks
14+
# 10 9 Cargo Net
15+
# 11 10 Complete
16+
ninja_new <- ninja |>
17+
mutate(
18+
# obstacle_number = ifelse(cause %in% c("Time", "Complete"),
19+
# obstacle_number - 1, obstacle_number),
20+
obstacle = ifelse(cause %in% c("Time", "Complete"),
21+
case_when(
22+
obstacle_number == 1 ~ "Slide Surfer",
23+
obstacle_number == 2 ~ "Swinging Blades",
24+
obstacle_number == 3 ~ "Double Dipper",
25+
obstacle_number == 4 ~ "Jumping Spider",
26+
obstacle_number == 5 ~ "Tire Run",
27+
obstacle_number == 6 ~ "Warped Wall",
28+
obstacle_number == 7 ~ "Dipping Birds",
29+
obstacle_number == 8 ~ "Fly Hooks",
30+
obstacle_number == 9 ~ "Cargo Net",
31+
TRUE ~ NA
32+
), obstacle))
33+
34+
flextable::flextable(ninja_new[c(1,50,42),])
35+
36+
write_csv(ninja_new, "anw/kaplan_meier/anw_2021_stage1.csv")
37+
38+
ninja2 <- read_csv("anw/kaplan_meier/anw_2023_stage1.csv")
39+
ninja2_obstacles <- distinct(ninja2, obstacle_number, obstacle) |>
40+
arrange(obstacle_number)
41+
# obstacle_number obstacle
42+
# <dbl> <chr>
43+
# 1 2 Three Ring Circus
44+
# 2 3 Giant Rollercoaster
45+
# 3 4 Jumping Spider
46+
# 4 5 Gambler
47+
# 5 6 Warped Wall
48+
# 6 7 Dipping Birds
49+
# 7 8 Thread the Needle
50+
# 8 9 Complete
51+
ninja2_new <- ninja2 |>
52+
mutate(obstacle_number = ifelse(cause %in% c("Time", "Complete"),
53+
obstacle_number - 1, obstacle_number),
54+
obstacle = ifelse(cause %in% c("Time", "Complete"),
55+
case_when(
56+
obstacle_number == 2 ~ "Three Ring Circus",
57+
obstacle_number == 3 ~ "Giant Rollercoaster",
58+
obstacle_number == 4 ~ "Jumping Spider",
59+
obstacle_number == 5 ~ "Gambler",
60+
obstacle_number == 6 ~ "Warped Wall",
61+
obstacle_number == 7 ~ "Dipping Birds",
62+
obstacle_number == 8 ~ "Thread the Needle",
63+
T ~ NA),
64+
obstacle))
65+
66+
write_csv(ninja2_new, "anw/kaplan_meier/anw_2023_stage1.csv")
67+
68+

0 commit comments

Comments
 (0)