<div dir="ltr"><div>Fátima, boa tarde!</div><div><br></div><div>Se você tiver a estimativa de erro armazenada em um vetor, pode utilizar lines() para plotar o limiar.</div><div><br></div><div><font face="courier new, monospace">### <BEGIN></font></div>
<div><font face="courier new, monospace">popfaF  <- c(37374,  54783,  86049, 126048, 287384)</font></div><div><font face="courier new, monospace">obfaF   <- c(6,15,27,55,239)</font></div><div><font face="courier new, monospace">txobfaF <- (obfaF*365/popfaF)*100; txobfaF</font></div>
<div><font face="courier new, monospace">idade   <- c("1","2","3","4","5")</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">plot(idade, txobfaF, type="b", lty=2, ylim=c(1,40), xaxt='n',</font></div>
<div><font face="courier new, monospace">     main="Sexo Feminino", xlab="Idade", ylab="Taxa de Mortalidade")</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">set.seed(457)</font></div>
<div><font face="courier new, monospace">erro <- runif(5,1,5) ### substitua por seu cálculo do erro!</font></div><div><font face="courier new, monospace">lines(idade, txobfaF+erro, lty='dashed', col=2)</font></div>
<div><font face="courier new, monospace">lines(idade, txobfaF-erro, lty='dashed', col=2)</font></div><div><font face="courier new, monospace">### <END></font><br></div><div><br></div><div class="gmail_extra">
<br clear="all"><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>Dourados, MS - [22 16.5'S, 54 49'W]<br>
</div></div>
<br><br><div class="gmail_quote"><br></div></div></div>