Pessoal,

estou tentando gerar os parametros de weibull no R, mas não estou conseguindo
Conforme orientaçao do Bruno obtive um erro, e não estou entendendo.
alguem pode ajudar?

library(MASS)
> dados<-read.table("teste.txt",header=FALSE)
> is.na(dados) <- dados == -999.9
> vento50<-fitdistr(dados[[1]],densfun="weibull")
Mensagens de aviso perdidas:
In dweibull(x, shape, scale, log) : NaNs produzidos
> is.na(dados) <- dados == -999
> vento50<-fitdistr(dados[[1]],densfun="weibull")
Mensagens de aviso perdidas:
In dweibull(x, shape, scale, log) : NaNs produzidos
> str(vento50)
List of 5
 $ estimate: Named num [1:2] 1.39 2.11
  ..- attr(*, "names")= chr [1:2] "shape" "scale"
 $ sd      : Named num [1:2] 0.191 0.292
  ..- attr(*, "names")= chr [1:2] "shape" "scale"
 $ vcov    : num [1:2, 1:2] 0.0366 0.0184 0.0184 0.0854
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : chr [1:2] "shape" "scale"
  .. ..$ : chr [1:2] "shape" "scale"
 $ loglik  : num -46.9
 $ n       : int 30
 - attr(*, "class")= chr "fitdistr"
>