Chapter 1. Basic Probability Theory

Figure 1.1 Sample Space

suppressPackageStartupMessages(library(spatstat))

wd <- 1.4

plot.new()
plot.window(c(-5,5),c(-5,5))
W1 <- ellipse(a=4.8,b=5.35,centre=c(0,0),phi=0,npoly=1024)
plot(W1,add=TRUE,lwd=wd)
text(-2,1,expression(H))
text(2,-1,expression(T))
text(3.9,3.9,expression(italic(S)))

plot.new()
plot.window(c(-5,5),c(-5,5))
W2 <- ellipse(a=4.8,b=5.35,centre=c(0,0),phi=0,npoly=1024)
plot(W2,add=TRUE,lwd=wd)
W3 <- ellipse(a=1.5,b=2.5,centre=c(-1.5,-.55),phi=pi/10,npoly=1024)
plot(W3,add=TRUE,lwd=wd)
text(-2,1,expression(HT),cex=.75)
text(2,-1,expression(TT),cex=.75)
text(0,3,expression(TH),cex=.75)
text(-1,-2,expression(HH),cex=.75)
text(3.9,3.9,expression(italic(S)))