#Esim 8.1 (Alaluku 8.1)
# Oletetaan, että taudin T toteamiseksi on olemassa hyvä testi.
x<- 0.02  # Taudin todennäköisyys
plusT<-0.95  # Positiivisen tuloksen todennäköisyys ehdolla, että on tauti
plusET<-0.02  # Positiivisen tuloksen todennäköisyys ehdolla, että ei tautia
Tplus<- plusT*x/(plusT*x+(1-x)*plusET)  # Taudin todennäköisyys, ehdolla , että positiivinen

curve(plusT*x/(plusT*x+(1-x)*plusET),0,0.1)