resolve issue #21

hugoquene · Aug 28, 2024 · ab41f01 · ab41f01
1 parent 2edc096
commit ab41f01
Show file tree

Hide file tree

Showing 5 changed files with 101 additions and 180 deletions.
diff --git a/KMS-NL_files/figure-latex/kritieketwaarden-hulpfiguur-1.pdf b/KMS-NL_files/figure-latex/kritieketwaarden-hulpfiguur-1.pdf
diff --git a/a3kritieketwaarden.Rmd b/a3kritieketwaarden.Rmd
@@ -9,8 +9,17 @@ xx <- seq(1,4,by=.01)
 yy <- dt(xx,df=49)
 curve( dt(x,df=49), from=-4, to=4, xaxt="n", yaxt="n", xlab="", ylab="", bty="n", lwd=3 )
 polygon( x=c(1,xx), y=c(0,yy), col="lavender", border="lavender" )
+# 20240828 added other polygon corresponding to B, three commands
+xx <- seq(-1,1,by=.01) 
+yy <- dt(xx,df=49)
+polygon( x=c(-1,xx,1), y=c(0,yy,0), col="wheat1", border="wheat1" )
+#
 curve( dt(x,df=49), from=-4, to=4, xaxt="n", yaxt="n", xlab="", ylab="", bty="n", lwd=3, add=TRUE )
 text( 1.5, dt(1.5,df=49)*.4, "p", adj=.5, cex=1 )
+# 20240828 added other polygon corresponding to B, two more commands
+text( -0.5, dt(0.5,df=49)*.4, "B/2", adj=.5, cex=1 )
+text( +0.5, dt(0.5,df=49)*.4, "B/2", adj=.5, cex=1 )
+#
 axis( side=1, at=c(0,1), labels=c("0","t*"), cex=1, tick=F, line=-1 ) # cex is ignored
 abline( h=0, lty=1, col="grey70" )
 segments( x0=0, x1=0, y0=0, y1=dt(0,df=49), col="grey70" )

diff --git a/docs/KMS-NL_files/figure-html/kritieketwaarden-hulpfiguur-1.png b/docs/KMS-NL_files/figure-html/kritieketwaarden-hulpfiguur-1.png