experiments with the variance

scripts/plot_densities.R

@@ -50,14 +50,14 @@ title(
 )
 
 ## 3.3 Plot one dimensional X_i ================================================
-p3 <- create_cond_density(a1, dnorm, pnorm, X1)
-givenX <- c(-0.5)
+p3 <- create_cond_density(2, dnorm, pnorm, X1)
+givenX <- c(-3.0)
 p3_plot <- \(x) p3(x, givenX)
 plot.function(p3_plot, xlab="u", ylab="p(u |x) ")
 title(main=expression("Conditional density for" ~ v %~% N(0, 1)), line=2)
 title(
   main = bquote(
-    a == (.(paste(a1, collapse = ", "))) ~ "," ~
+    a == (.(paste(c(2), collapse = ", "))) ~ "," ~
       N == .(N) ~ "," ~
       x == (.(paste(givenX, collapse = ", ")))
   ),