Course Outline
-
segmentGetting Started (Don't Skip This Part)
-
segmentStatistics and Data Science II
-
segmentPART I: EXPLORING AND MODELING VARIATION
-
segmentChapter 1 - Exploring Data with R
-
segmentChapter 2 - From Exploring to Modeling Variation
-
segmentChapter 3 - Modeling Relationships in Data
-
segmentPART II: COMPARING MODELS TO MAKE INFERENCES
-
segmentChapter 4 - The Logic of Inference
-
4.10 Chapter 4 Review Questions
-
segmentChapter 5 - Model Comparison with F
-
segmentChapter 6 - Parameter Estimation and Confidence Intervals
-
segmentPART III: MULTIVARIATE MODELS
-
segmentChapter 7 - Introduction to Multivariate Models
-
segmentChapter 8 - Multivariate Model Comparisons
-
segmentChapter 9 - Models with Interactions
-
segmentChapter 10 - More Models with Interactions
-
segmentFinishing Up (Don't Skip This Part!)
-
segmentResources
list High School / Statistics and Data Science II (XCD)
Book
4.10 Chapter 4 Review Questions
NOTE: Depending on your internet connection, this page may take a moment to load. In order to avoid automatic scrolling of the page, please wait until all of the questions have fully loaded before submitting responses.
require(coursekata)
set.seed(7)
newborns <- sample(Gestation, 500)
newborns$inc <- recode(newborns$inc, "0-2500" = "$0-12,500", "2500-5000" = "$0-12,500", "5000-7500" = "$0-12,500", "7500-10000" = "$0-12,500", "10000-12500" = "$0-12,500", "12500-15000" = "$12,500-22,500", "15000-17500" = "$12,500-22,500", "15000+" = "$12,500-22,500", "17500-20000" = "$12,500-22,500", "20000-22500" = "$12,500-22,500")
newborns$income <- factor(newborns$inc, levels = c("$0-12,500", "$12,500-22,500"))
newborns <- select(newborns, gestation, wt, age, ed, dage, ded, income, smoke)
newborns <- filter(newborns, smoke == "never"|smoke == "now")
newborns <- filter(newborns, income != "NA")
# run your code hererequire(coursekata)
set.seed(7)
newborns <- sample(Gestation, 500)
newborns$inc <- recode(newborns$inc, "0-2500" = "$0-12,500", "2500-5000" = "$0-12,500", "5000-7500" = "$0-12,500", "7500-10000" = "$0-12,500", "10000-12500" = "$0-12,500", "12500-15000" = "$12,500-22,500", "15000-17500" = "$12,500-22,500", "15000+" = "$12,500-22,500", "17500-20000" = "$12,500-22,500", "20000-22500" = "$12,500-22,500")
newborns$income <- factor(newborns$inc, levels = c("$0-12,500", "$12,500-22,500"))
newborns <- select(newborns, gestation, wt, age, ed, dage, ded, income, smoke)
newborns <- filter(newborns, smoke == "never"|smoke == "now")
newborns <- filter(newborns, income != "NA")
# run your code here