<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
Pessoal,<div><br></div><div>estou tentando gerar os parametros de weibull no R, mas não estou conseguindo</div><div>Conforme orientaçao do Bruno obtive um erro, e não estou entendendo.</div><div>alguem pode ajudar?</div><div><br></div><div><div>library(MASS)</div><div>> dados<-read.table("teste.txt",header=FALSE)</div><div>> is.na(dados) <- dados == -999.9</div><div>> vento50<-fitdistr(dados[[1]],densfun="weibull")</div><div>Mensagens de aviso perdidas:</div><div>In dweibull(x, shape, scale, log) : NaNs produzidos</div><div>> is.na(dados) <- dados == -999</div><div>> vento50<-fitdistr(dados[[1]],densfun="weibull")</div><div>Mensagens de aviso perdidas:</div><div>In dweibull(x, shape, scale, log) : NaNs produzidos</div><div>> str(vento50)</div><div>List of 5</div><div> $ estimate: Named num [1:2] 1.39 2.11</div><div> ..- attr(*, "names")= chr [1:2] "shape" "scale"</div><div> $ sd : Named num [1:2] 0.191 0.292</div><div> ..- attr(*, "names")= chr [1:2] "shape" "scale"</div><div> $ vcov : num [1:2, 1:2] 0.0366 0.0184 0.0184 0.0854</div><div> ..- attr(*, "dimnames")=List of 2</div><div> .. ..$ : chr [1:2] "shape" "scale"</div><div> .. ..$ : chr [1:2] "shape" "scale"</div><div> $ loglik : num -46.9</div><div> $ n : int 30</div><div> - attr(*, "class")= chr "fitdistr"</div><div>> </div><div><br></div><br><span class="ecxApple-style-span" style="line-height:17px"><font color="#002060" face="'Comic Sans MS'"><br style="line-height:17px"></font></span></div> </div></body>
</html>