#Example of Untidy Dataset 
library(readxl)
untidyexcel <- read_xlsx("Class4PractUntidy.xlsx")
untidyexcel
## # A tibble: 5 x 4
##   Student  Male Female Grade
##     <chr> <chr>  <chr> <dbl>
## 1     Joe     x   <NA>    12
## 2  George     x   <NA>    11
## 3   Sally  <NA>      x    11
## 4    John     x   <NA>    11
## 5   Susan  <NA>      x    12
#Example of Tidy Dataset 
tidyexcel <- read_xlsx("Class4PractTidy.xlsx")
tidyexcel
## # A tibble: 5 x 3
##   Student Gender Grade
##     <chr>  <chr> <dbl>
## 1     Joe   Male    12
## 2  George   Male    11
## 3   Sally Female    11
## 4    John   Male    11
## 5   Susan Female    12
#Dataset One 
#Used Chevy 1500's at Stocker Chevorlet 
trucksexcel <- read_xlsx("Class4PractTBL1.xlsx")
trucksexcel
## # A tibble: 10 x 3
##    Truck  Year    Price
##    <dbl> <dbl>    <chr>
##  1     1  2010    15890
##  2     2  2014    17890
##  3     3  2009    18890
##  4     4  2015    28990
##  5     5  2014    30890
##  6     6  2016    31789
##  7     7  2014    34670
##  8     8  2017    49980
##  9     9  2017    49987
## 10    10  2013 unlisted
#data was collected by searching used 1500 Chevorlet trucks on Stocker Chevorlet website
#variable #1 was the year of the used truck and is a nominal level of measure
#variable #2 is the list price on the website and is a ratio level of measure

#Dataset Two
#Ingredients in Prenatal Vitamins 
ingredientsexcel <- read_xlsx("Class4PractTBL2.xlsx")
ingredientsexcel
## # A tibble: 10 x 3
##      Ingredient   Amount `Daily Value`
##           <chr>    <chr>         <dbl>
##  1    Vitamin A 4,000 IU          0.50
##  2    Vitamin C    30 mg          0.50
##  3    Vitamin D   400 IU          1.00
##  4    Vitamin E    15 IU          0.50
##  5       Niacin    20 mg          1.00
##  6  Vitamin B-6   2.5 mg          1.00
##  7   Folic Acid  800 mcg          1.00
##  8 Vitamin B-12    8 mcg          1.00
##  9       Iodine  150 mcg          1.00
## 10         Zinc   3.8 mg          0.25
#data was collected by listing the first 10 ingredients on from a bottle of prenatal vitamins
#variable #1 is the amount of indgredient and is a nominal level of measure
#variable #2 is the daily value for a pregnant woman and is an ordinal level of measure

#Dataset Three
#SkillUSA Members 
skillsusaexcel <- read_xlsx("Class4PractTBL3.xlsx")
skillsusaexcel
## # A tibble: 10 x 3
##    Student `Shirt Size`  Program
##      <chr>        <chr>    <chr>
##  1  Skylar          Med      HOC
##  2   Riley          Med      HOC
##  3   Julia           Lg      HOC
##  4  Joslyn          Med      HOC
##  5 Maranda           Lg      HOC
##  6   Avery           Sm      HOC
##  7    Lexi          Med      HOC
##  8   Kylee           Lg Culinary
##  9 Savanna          Med Culinary
## 10   Barry          2XL Culinary
#data was collected by listing the first 10 students who paid their SkillsUSA dues
#variable #1 is their shirt size and is an ordinal level of measure
#variable #2 is the program the student is in and is a nominal level of measure