# Exemplos de Curvas Características Operacionais

# CCO para distribuição normal padrão (valor médio amostral)

n <- 4
gama <- seq(0,5,by=0.02)
beta <- pnorm(3-gama*sqrt(n))-pnorm(-3-gama*sqrt(n))
plot(gama,beta,type="l")
n <- 8
beta <- pnorm(3-gama*sqrt(n))-pnorm(-3-gama*sqrt(n))
points(gama,beta,type="l",lty=3)
abline(v=1.5,lty=2,col="red")
legend("topright",legend=c("n=4","n=8"),lty=c(1,3))

# CCO para distribuição binomial (proporções)

n <- 100
c <- 5
p <- seq(0.00,0.10,by=0.001)
Pa <- pbinom(c,n,p)
plot(p,Pa,type="l")
n <- 200
Pa <- pbinom(c,n,p)
points(p,Pa,type="l",lty=3)
abline(v=0.05,lty=2,col="red")
legend("topright",legend=c("n=100","n=200"),lty=c(1,3))