Imputasi Data-MIMO LSTM dan GRU

Package yang digunakan

library(googlesheets4)
library(readxl)
library(writexl)            

Data yang digunakan

url <- "https://docs.google.com/spreadsheets/d/1K-F9o0yvqO1GH4OdgCj2t_TOpIAlJCvgCdtem-XfoJY/edit?usp=sharing"
data.1 <- read_sheet(url)

## ! Using an auto-discovered, cached token.

##   To suppress this message, modify your code or options to clearly consent to
##   the use of a cached token.

##   See gargle's "Non-interactive auth" vignette for more details:

##   <https://gargle.r-lib.org/articles/non-interactive-auth.html>

## ℹ The googlesheets4 package is using a cached token for
##   'apriliaputri17aprilia@apps.ipb.ac.id'.

## Auto-refreshing stale OAuth token.

## ✔ Reading from "Data Harian".

## ✔ Range 'Sheet1'.

summary(data.1)

##    Tanggal           DKI Jakarta       Jawa Barat      Jawa Tengah    
##  Length:1374        Min.   :123750   Min.   :119825   Min.   :109075  
##  Class :character   1st Qu.:126675   1st Qu.:122300   1st Qu.:113188  
##  Mode  :character   Median :138350   Median :132575   Median :119175  
##                     Mean   :135043   Mean   :131816   Mean   :120343  
##                     3rd Qu.:141650   3rd Qu.:140225   3rd Qu.:127675  
##                     Max.   :153350   Max.   :154925   Max.   :138575  
##                     NA's   :67       NA's   :60       NA's   :48      
##  D.I Yogyakarta     Jawa Timur         Banten      
##  Min.   :107875   Min.   : 98750   Min.   :116250  
##  1st Qu.:118750   1st Qu.:111500   1st Qu.:116750  
##  Median :121375   Median :113150   Median :128750  
##  Mean   :125312   Mean   :114170   Mean   :127818  
##  3rd Qu.:136250   3rd Qu.:116725   3rd Qu.:137500  
##  Max.   :141250   Max.   :124025   Max.   :161250  
##  NA's   :59       NA's   :54       NA's   :62

1. Praproses data

Mengatasi data hilang pada data harian dengan interpolasi linear

library(imputeTS)

## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

x.1 <- na_interpolation(data.1, option = "linear")

# Menampilkan keseluruhan data harian hasil imputasi data
knitr::kable(x.1)