Update ComponentModel_intercept_ln0.Rmd

ComponentModel_intercept_ln0.Rmd

@@ -50,9 +50,9 @@ right_formulas <- lapply(model_terms, function(x) {
 
 ```
 
-#Adapt data so intercept can be set through 1. 
+#Adapt data so intercept can be set through 0. 
 ```{r}
-Component_Data$visc_m_1 <- viscosity - 1
+Component_Data$visc_m_1 <- viscosity - 0
 ```
 
 #Fitting the models with multiple linear regression