[R-br] Ajuda com gráfico de pontos

[Julia Maria]

Caros colegas ...
Quando vou rodar este script abaixo eu não consigo fazer com que as observações saiam em cada mês ... 
Esta saaindo apenas um pontinho preto.
Será que algum colega poderia me auxiliar neste script?
Os dados estão em anexo.

Grata

dados <- read.table("D:\\Dados.txt",h=F)

dadost <- as.matrix(dados[,3])

x <- c(710000,712000,712000,710000)
y <- c(7700000,7700000,7900000, 7900000)
poly <- cbind(x,y)
plot(poly)

n <- max(dadost)

############################## ############################## ############################
        GRAFICO DE TODOS OS TEMPOS
############################## ############################## ##############################

dts <- c("Nov2001","Dez2001"," Jan2002","Fev2002","Mar2002",
         "Abr2002","Maio2002","Jun2002" ,"Jul2002","Ago2002","Set2002" )

par(mfrow=c(7,3),mar=rep(2,4))
for(i in 1:n){
    plot(poly,type="n",xlab="x", ylab="y",main=dts[i])
    points(dados[,1][dadost==i], dados[,2][dadost==i],xlab="x", ylab="y",main="")}
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121229/c45ff87b/attachment.html>
-------------- Próxima Parte ----------
Um texto embutido e sem conjunto de caracteres especificado foi limpo...
Nome: Dados.txt
Url: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121229/c45ff87b/attachment.txt>