Não estou conseguindo transformar a cotação diária do câmbio para ts.

    dados <- read.table("C:/Econometria/Cambio/cambio.txt", header=T, dec=",")
    ts(dados), start=c(1994,01,01), freq=1) # Quando faço isso ele muda os dados, acaba aparecendo valores que não estão no arquivo

Também usei `xts(dados, as.Date(dados, format='%m/%d/%Y')`

Alguém poderia me ajudar?

str(dados)
'data.frame':	5103 obs. of  1 variable:
 $ X1: Factor w/ 4142 levels "-","0,829","0,831",..: 86 81 70 65 74 77 74 74 77 83 ...

dput(dados)
... , "3,9245", "3,9552"), class = "factor")), .Names = "X1", class = "data.frame", row.names = c(NA, 
-5103L))