<div dir="ltr">Acontece que ao truncar os dados num intervalo fechado, eles deixam de ser normais... (na verdade, esse e' um bom exercicio pro pessoal da graduacao q esteja fazendo probabilidade) Entao, o teste deu o resultado correto.<div>

<br></div><div>Sem saber a historia completa do que vc quer fazer, acho dificil alguem conseguir te ajudar.</div><div><br></div><div>Talvez, o que vc queira, seja definir uma distribuicao normal com parametros tais que a probabilidade de gerar numeros fora de um intervalo seja muuuito pequena... Por exemplo, se o intervalo de interesse for [2, 3] (como no exemplo que dei), entao uma das [infinitas] solucoes e' amostrar de:</div>

<div><br></div><div>Normal(2.5, 0.05)</div><div><br></div><div>outra seria Normal(2.5, 0.1)</div><div><br></div><div>e ate Normal(2.5, 0.125) ## com alguns pontos ja' podendo cair fora do intervalo.</div><div><br></div>

<div>Por exemplo:</div><div><br></div><div>set.seed(1)</div><div>x = rnorm(1000, 2.5, 0.1)</div><div>range(x) ## 2.13 - 2.88</div><div>shapiro.test(x) ##p-value = 0.7256<br></div><div><br></div><div>benilton</div></div><div class="gmail_extra">

<br><br><div class="gmail_quote">Em 29 de julho de 2014 16:08, Marcos Bissoli <span dir="ltr"><<a href="mailto:mbissoli@gmail.com" target="_blank">mbissoli@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<div dir="ltr">Prezados,<div><br></div><div>Agradeço imensamente a todos que colaboraram. As propostas de Benilton e Ivan funcionaram com muita velocidade, mesmo quando solicitei uma simulação de 1534 dados. No entanto, quando apliquei o teste de aderência (Shapiro-Wilk), o valor de p indicou que os dados NÃO obedeciam a uma distribuição normal.</div>


<div><br></div><div>Testei tanto as duas propostas quanto o meu código usando um n=100, pensando se seria um problema do tamanho da amostra. Com o meu "loop", o teste indicou distribuição Normal (p>0.05), mas com as duas propostas deu um p<0.05.</div>


<div><br></div><div>Creio que meus conhecimentos ainda iniciais no software não me permitiram compreender a proposta de Walmes para eu testar. Não consegui identificar onde eu deveria incluir meus parâmetros de n, valor máx, valor mín, média e desvio padrão.</div>


<div><br></div><div>De qualquer forma, agradeço muito a disposição de todos em ajudar.</div><div><br></div><div>Abraços fraternos,</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 29 de julho de 2014 14:19, walmes . <span dir="ltr"><<a href="mailto:walmeszeviani@gmail.com" target="_blank">walmeszeviani@gmail.com</a>></span> escreveu:<br>


<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="h5"><div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Se eu fosse gerar da normal truncada, eu iria proceder usando o método da inversa da acumulada. Talvez seja mais rápido. O com while pode demorar demais se a taxa de rejeição for grande. Por exemplo, o tempo para gerar sem números entre 0 e 1 é maior do que para gerar entre -1 e 1 porque a taxa de rejeição no primeiro caso é maior.<br>



<br><span style="font-family:courier new,monospace">par(mfrow=c(1,2))<br>curve(dnorm(x, 0, 1), -3, 3)<br>abline(v=c(-0.5, 2), lty=2)<br>curve(pnorm(x, 0, 1), -3, 3)<br>abline(v=c(-0.5, 2), lty=2)<br>layout(1)<br><br>lim <- pnorm(c(-0.5, 2), 0, 1)<br>



u <- runif(100, lim[1], lim[2])<br>y <- qnorm(u, 0, 1)<br><br>par(mfrow=c(1,2))<br>curve(dnorm(x, 0, 1), -3, 3)<br>abline(v=c(-0.5, 2), lty=2)<br>rug(y)<br>curve(pnorm(x, 0, 1), -3, 3)<br>abline(v=c(-0.5, 2), lty=2)<br>



rug(u, side=2) <br>rug(y)<br>layout(1)<br></span><br>À disposição.<span><font color="#888888"><br>Walmes.<br><br></font></span></div></div>
<br></div></div><div class="">_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></div></blockquote></div><br><br clear="all"><div><br></div>

-- <br><div class="">
<div dir="ltr">MARCOS BISSOLI<br>Faculdade de Nutrição<br>Universidade Federal de Alfenas<br><br>E-mail: <a href="mailto:mbissoli@gmail.com" target="_blank">mbissoli@gmail.com</a><br>Twitter: #mbissoli<div>Facebook: <a href="https://www.facebook.com/MarcosBissoli" target="_blank">https://www.facebook.com/MarcosBissoli</a><br>


<br>Alfenas, Minas Gerais, Brasil<br><br><br>*****Pense na Natureza antes de Imprimir*****<br>Divulgue ON-LINE<br><br>Eu apoio a ENEN "na luta por um Brasil sem fome"<br><br>"por ĉiu popolo ties propran lingvon, por ĉiuj popoloj la esperantan"<br>


(para cada povo sua própria língua, para todos os povos o Esperanto)</div><div><br></div><div>E nunca votarei no PSDB/DEM!</div></div>
</div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br>

<div dir="ltr"><a href="http://about.me/benilton" style="margin:0px;padding:0px;border:0px;outline:0px;font-size:14px;font-family:proxima-nova-1,proxima-nova-2,Tahoma,Helvetica,Verdana,sans-serif;vertical-align:baseline;color:rgb(43,130,173);text-decoration:none;line-height:18.200000762939453px" target="_blank"><table border="0" cellpadding="0" cellspacing="0" style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline;border-spacing:0px">

<tbody style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline"><tr style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline">

<td colspan="3" style="padding:0px;border:0px;outline:0px;font-style:inherit;font-size:0px;font-family:inherit;vertical-align:baseline;height:30px"> </td></tr><tr style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline">

<td align="left" valign="top" style="padding:0px;border:0px;outline:0px;font-style:inherit;font-family:inherit;vertical-align:top;line-height:1"><div style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline">

<img src="http://d13pix9kaak6wt.cloudfront.net/signature/me-badge.png" alt="Benilton Carvalho on about.me" width="48" height="48" style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline;display:block"></div>

</td><td style="padding:0px;border:0px;outline:0px;font-style:inherit;font-size:0px;font-family:inherit;vertical-align:baseline;width:8px"> </td><td align="left" valign="middle" style="padding:0px;border:0px;outline:0px;font-style:inherit;font-family:inherit;vertical-align:middle;height:48px;line-height:0.9">

<div style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:bold;font-style:inherit;font-size:18px;font-family:proxima-nova-1,Proxima-Nova,Helvetica,Arial,sans-serif;vertical-align:baseline;line-height:1;color:rgb(51,51,51)">

Benilton Carvalho</div><div style="margin:2px 0px 0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-size:12px;font-family:proxima-nova-1,Proxima-Nova,Helvetica,Arial,sans-serif;vertical-align:baseline">

about.me/benilton</div></td></tr><tr style="margin:0px;padding:0px;border:0px;outline:0px;font-weight:inherit;font-style:inherit;font-family:inherit;vertical-align:baseline"><td colspan="3" style="padding:0px;border:0px;outline:0px;font-style:inherit;font-size:0px;font-family:inherit;vertical-align:baseline;height:20px">

 </td></tr></tbody></table></a></div>
</div>