# DAL ToolBox
# version 1.01.727

source("https://raw.githubusercontent.com/cefet-rj-dal/daltoolbox/main/jupyter.R")

#loading DAL
load_library("daltoolbox")

data(sin_data)
sin_data$y[39] <- sin_data$y[39]*6

sw_size <- 5
ts <- ts_data(sin_data$y, sw_size)
ts_head(ts, 3)

library(ggplot2)
plot_ts(x=sin_data$x, y=sin_data$y) + theme(text = element_text(size=16))

samp <- ts_sample(ts, test_size = 5)
train <- as.data.frame(samp$train)
test <- as.data.frame(samp$test)

auto <- autoenc_encode(5, 3)
auto <- fit(auto, train)

print(head(train))
result <- transform(auto, train)
print(head(result))


print(head(test))
result <- transform(auto, test)
print(head(result))