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))