tests/testthat/test.VMDML.R

In VMDML: Variational Mode Decomposition Based Machine Learning Models

library(testthat)
require(VMDML)

#Dataset generation
set.seed(6)
data3 <- rnorm(300,6.6,.36)

#Parameter setting
alpha = 2000
tau = 0
K = 3
k=0.8
DC = FALSE
init = 1
tol = 1e-6
#Application of VMDARIMA model
VMDARIMA(data3,.8,alpha,tau,K,DC,init,tol)

#Application of VMDELM model
#VMDELM(data3,0.8,alpha,tau,K,DC,init,tol)


#Parameter setting for RF model
#m = 3
#n =5

#Application of VMDRF model
#VMDRF(data3,k,alpha,tau,K,DC,init,tol,m,n)

#Application of VMDSVR model
VMDSVR(data3,.8,alpha,tau,K,DC,init,tol,"radial","nu-regression")

#Application of VMDTDNN model
#VMDTDNN(data3,.8,alpha,tau,K,DC,init,tol,1,5,20,100)