JANEIRO<-matrix(0,10,2)
for (i in 1:10) 
{
JANEIRO[i,1]<-dados$Cananeia[1+(i-1)*12]

JANEIRO[i,2]<-dados$Ubatuba[1+(i-1)*12]
}
JANEIRO