Skip to content

Instantly share code, notes, and snippets.

@viniroger

viniroger/separate_data.R

Last active April 3, 2018 11:58
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save viniroger/c0029a46979bcc0a5f5e783a1b77c453 to your computer and use it in GitHub Desktop.
Save viniroger/c0029a46979bcc0a5f5e783a1b77c453 to your computer and use it in GitHub Desktop.
Download ZIP
Separate data by dates
Raw
separate_data.R
# Pacote SQLDF e suas dependencias
suppressPackageStartupMessages(require(tcltk,lib=end_libs))
suppressPackageStartupMessages(require(proto,lib=end_libs))
suppressPackageStartupMessages(require(gsubfn,lib=end_libs))
suppressPackageStartupMessages(require(RSQLite,lib=end_libs))
suppressPackageStartupMessages(require(sqldf,lib=end_libs))
# Separate last data part to xreg_fut
data_ini = as.character(data$data[1])
data_lim1 = "2017-01-01"
data_lim2 = seq(as.Date(data_lim1), by = "-1 month", length = 2)[2]
data_fim = as.character(data$data[nrow(data)])
query = paste("SELECT * FROM data WHERE data between '",data_lim1,"' AND '",data_fim,"'",sep = "")
xreg_fut = sqldf(query,stringsAsFactors = FALSE)
query = paste("SELECT * FROM data WHERE data between '",data_ini,"' AND '",data_lim2,"'",sep = "")
data = sqldf(query,stringsAsFactors = FALSE)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment