diff --git a/07_RegressionModels/01_01_introduction/index.Rmd b/07_RegressionModels/01_01_introduction/index.Rmd index 1fadce87c..e0331b0a7 100644 --- a/07_RegressionModels/01_01_introduction/index.Rmd +++ b/07_RegressionModels/01_01_introduction/index.Rmd @@ -170,7 +170,7 @@ myPlot <- function(beta){ y <- galton$child - mean(galton$child) x <- galton$parent - mean(galton$parent) freqData <- as.data.frame(table(x, y)) - names(freqData) <- c("child", "parent", "freq") + names(freqData) <- c("parent", "child", "freq") plot( as.numeric(as.vector(freqData$parent)), as.numeric(as.vector(freqData$child)),