Youth Risk Behavior

library(tidyverse)

## Warning: package 'ggplot2' was built under R version 4.0.4

library(openintro)

Load the youth risk dataset

Source: https://vincentarelbundock.github.io/Rdatasets/doc/Stat2Data/YouthRisk2009.html

CSV file: https://vincentarelbundock.github.io/Rdatasets/csv/Stat2Data/YouthRisk2009.csv

library(tidyverse)
setwd("C:/AarynZimmerman/Biostatistics Project")
youth <-read.csv("YouthRisk2009.csv")

#view the data
glimpse(youth)

## Rows: 500
## Columns: 7
## $ X           <int> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, ...
## $ Sleep       <chr> "", "8 hours", "5 hours", "5 hours", "7 hours", "4 or l...
## $ Sleep7      <int> NA, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, ...
## $ SmokeLife   <chr> "No", "Yes", "Yes", "Yes", "Yes", "No", "No", "No", "Ye...
## $ SmokeDaily  <chr> "", "Yes", "Yes", "Yes", "No", "No", "No", "No", "No", ...
## $ MarijuaEver <int> 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1...
## $ Age         <int> 16, 16, 17, 18, 17, 15, 17, 17, 16, 16, 18, 15, 15, 16,...

view(youth)

…