Course Outline
-
segmentGetting Started (Don't Skip This Part)
-
segmentStatistics and Data Science: A Modeling Approach
-
segmentPART I: EXPLORING VARIATION
-
segmentChapter 1 - Welcome to Statistics: A Modeling Approach
-
segmentChapter 2 - Understanding Data
-
segmentChapter 3 - Examining Distributions
-
segmentChapter 4 - Explaining Variation
-
segmentPART II: MODELING VARIATION
-
segmentChapter 5 - A Simple Model
-
segmentChapter 6 - Quantifying Error
-
segmentChapter 7 - Adding an Explanatory Variable to the Model
-
segmentChapter 8 - Digging Deeper into Group Models
-
segmentChapter 9 - Models with a Quantitative Explanatory Variable
-
segmentPART III: EVALUATING MODELS
-
segmentChapter 10 - The Logic of Inference
-
10.8 Chapter 10 Review Questions
-
segmentChapter 11 - Model Comparison with F
-
segmentChapter 12 - Parameter Estimation and Confidence Intervals
-
segmentChapter 13 - What You Have Learned
-
segmentFinishing Up (Don't Skip This Part!)
-
segmentResources
list High School / Advanced Statistics and Data Science I (ABC)
Book
10.8 Chapter 10 Review Questions
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 hereCK Code: C1_Code_Review1_01
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 hereCK Code: C1_Code_Review1_02