# Uniao dos produtores de bioenergia
# http://www.udop.com.br/

pdf(file="indicepluviometrico.pdf",width=12,height=8)
par(mfrow=c(2,1))
data = matrix(scan("presidenteprudente.txt"),24,14,byrow=TRUE)
y = matrix(t(data[,2:13]),24*12,1)
y[y==999] = NA
plot(y,type="l",xlab="Ano",ylab="Indice pluviometrico",axes=FALSE)
axis(2);box();axis(1,at=ind,lab=ano)
title("Presidente Prudente")

data = matrix(scan("ribeiraopreto.txt"),24,14,byrow=TRUE)
y = matrix(t(data[,2:13]),24*12,1)
y[y==999] = NA
plot(y,type="l",xlab="Ano",ylab="Indice pluviometrico",axes=FALSE)
axis(2);box();axis(1,at=ind,lab=ano)
title("Ribeirao Preto")
dev.off()