In [1]:

    

library(repr)
library(forecast)
options(warn=-1)
options(repr.plot.width=10, repr.plot.height=5)

source("/home/petronio/dados/Dropbox/Doutorado/Disciplinas/AdvancedFuzzyTimeSeriesModels/rfts/FTS.r")


    

    




Loading required package: zoo

Attaching package: ‘zoo’

The following objects are masked from ‘package:base’:

    as.Date, as.Date.numeric

Loading required package: timeDate
This is forecast 7.0 

In [2]:

    

mat <- read.table("/home/petronio/dados/Dropbox/Doutorado/Disciplinas/AdvancedFuzzyTimeSeriesModels/DataSets/CEMIGMatriz.csv",
                     header=FALSE, sep=";")
col <- read.table("/home/petronio/dados/Dropbox/Doutorado/Disciplinas/AdvancedFuzzyTimeSeriesModels/DataSets/CEMIGColunas.csv",
                     header=FALSE, sep=";")
row <- read.table("/home/petronio/dados/Dropbox/Doutorado/Disciplinas/AdvancedFuzzyTimeSeriesModels/DataSets/CEMIGLinhas.csv",
                     header=FALSE, sep=";")


    

In [18]:

    

d = dim(row)
linhas = d[1]
colunas = length(col)

#dados <- matrix( c(0,0,0), nrow=linhas*colunas, ncol=3 )

datas <- c()
horas <- c()
valores <- c()

for(k in 1:colunas){
    for(i in 1:linhas){
        ind <- (k-1)*linhas + i
        datas[ind] =  paste(col[[k]], row[i,1])  #as.POSIXct(paste(col[[k]], row[i,1]), format="%d/%m/%Y %H:%M")
        valores[ind] = mat[i,k]
    }
}

dados <- data.frame( datas, valores)
names(dados) <- c("Data","Valor")
#dados$Data <- as.POSIXct(strptime(dados$Data, "%d/%m/%Y %H:%M"), "%d/%m/%Y %H:%M")
#dados
write.table(dados, file="/home/petronio/dados/Dropbox/Doutorado/Disciplinas/AdvancedFuzzyTimeSeriesModels/DataSets/CEMIG.csv",
            sep=";",row.names = FALSE, col.names = TRUE,)


    

In [2]:

    

dados <- read.table("/home/petronio/dados/Dropbox/Doutorado/Disciplinas/AdvancedFuzzyTimeSeriesModels/DataSets/CEMIG.csv",
                     header=TRUE, sep=";")
#names(dados) <- c("ID","Data","Valor")
dados$Data <- as.POSIXct(strptime(dados$Data, "%d/%m/%Y %H:%M"), "%d/%m/%Y %H:%M")
#dados


    

In [3]:

    

plot(dados, type="h")
dev.copy(png,filename="/home/petronio/Pictures/cemig.jpg");
dev.off ();


    

    
Out[3]:




png: 3






    
Out[3]:




pdf: 2