Conforme orientaçao do Bruno obtive um erro, e não estou entendendo.
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"
>