# NOT RUN {
CoronaVirus_Disease_2019_prevalence(0.0001, 0.9,0.8)
CoronaVirus_Disease_2019_prevalence(0.03,0.9,0.8)
CoronaVirus_Disease_2019_prevalence(0.3,0.9,0.8)
#========================================================================================
# If Sensitivity and Specificity is larger, then, the probability is also larger
#========================================================================================
x <- stats::runif(100,0,1)
y <- CoronaVirus_Disease_2019_prevalence(0.1,x,x)
dark_theme(4)
plot(x,y)
#========================================================================================
# If the prevalence is larger, then, the probability is also larger
#========================================================================================
x <- stats::runif(100,0,1)
y <- CoronaVirus_Disease_2019_prevalence(x,0.9,0.9)
dark_theme(4)
plot(x,y)
# }
Run the code above in your browser using DataLab