updated l1

bihealth · Sep 17, 2024 · e5e055d · e5e055d
1 parent 0875905
commit e5e055d
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/Lectures/lecture_01.html b/Lectures/lecture_01.html
@@ -9,7 +9,7 @@
 
 
 
-  <meta name="date" content="2024-09-16" />
+  <meta name="date" content="2024-09-17" />
 
   <meta name="viewport" content="width=device-width, initial-scale=1">
   <meta name="apple-mobile-web-app-capable" content="yes">
@@ -3270,7 +3270,7 @@
       <h1 data-config-title><!-- populated from slide_config.json --></h1>
 
       <p data-config-presenter><!-- populated from slide_config.json --></p>
-            <p style="margin-top: 6px; margin-left: -2px;">2024-09-16</p>
+            <p style="margin-top: 6px; margin-left: -2px;">2024-09-17</p>
           </hgroup>
   </slide>
 
@@ -3544,7 +3544,7 @@ <h3>Bad:</h3>
 b &lt;- c(1,10, 
 20, 21, 5)
 
-r&lt;-sqrt((b-mean(b))^2/a)</pre></div>
+r&lt;-sqrt(sum((b-mean(b))^2)/a)</pre></div>
 
 <div style="float: right; width: 5%;">
 </div>
@@ -3563,7 +3563,7 @@ <h3>Better:</h3>
 samples_devs &lt;- samples - samples_mean
 
 # samples variance
-samples_var  &lt;- samples_devs^2 / (samples_n - 1)
+samples_var  &lt;- sum(samples_devs^2) / (samples_n - 1)
 
 samples_sd   &lt;- sqrt(samples_var)
 

diff --git a/Lectures/lecture_01.rmd b/Lectures/lecture_01.rmd
@@ -290,7 +290,7 @@ a <- 5
 b <- c(1,10, 
 20, 21, 5)
 
-r<-sqrt((b-mean(b))^2/a)
+r<-sqrt(sum((b-mean(b))^2)/a)
 
 ```
 
@@ -315,7 +315,7 @@ samples_mean <- mean(samples)
 samples_devs <- samples - samples_mean
 
 # samples variance
-samples_var  <- samples_devs^2 / (samples_n - 1)
+samples_var  <- sum(samples_devs^2) / (samples_n - 1)
 
 samples_sd   <- sqrt(samples_var)