From be0ec554561afc9984489bde68c2df05aa7dcece Mon Sep 17 00:00:00 2001
From: Young Geun Kim <dudrmshub@gmail.com>
Date: Mon, 18 Dec 2023 14:19:14 +0900
Subject: [PATCH] skip some tests in cran submission

---
 tests/testthat/test-forecast.R        | 2 ++
 tests/testthat/test-stable-process.R  | 2 ++
 tests/testthat/test-summary-varlse.R  | 2 ++
 tests/testthat/test-summary-vharlse.R | 2 ++
 tests/testthat/test-varlse.R          | 4 ++++
 tests/testthat/test-vharlse.R         | 4 ++++
 6 files changed, 16 insertions(+)

diff --git a/tests/testthat/test-forecast.R b/tests/testthat/test-forecast.R
index c50e463f..9daedb1f 100644
--- a/tests/testthat/test-forecast.R
+++ b/tests/testthat/test-forecast.R
@@ -1,5 +1,7 @@
 # VAR----------------------------------
 test_that("Test for varlse forecast", {
+  skip_on_cran()
+  
   num_col <- 3
   fit_var <- var_lm(etf_vix[, 1:3], 2)
   fit_vhar <- vhar_lm(etf_vix[, 1:3])
diff --git a/tests/testthat/test-stable-process.R b/tests/testthat/test-stable-process.R
index 931bd9fe..b3287e51 100644
--- a/tests/testthat/test-stable-process.R
+++ b/tests/testthat/test-stable-process.R
@@ -1,4 +1,6 @@
 test_that("Stable root", {
+  skip_on_cran()
+  
   test_lag <- 3
   num_col <- 2
   fit_test_var <- var_lm(etf_vix[, seq_len(num_col)], test_lag)
diff --git a/tests/testthat/test-summary-varlse.R b/tests/testthat/test-summary-varlse.R
index 0f1a19d1..25f5c449 100644
--- a/tests/testthat/test-summary-varlse.R
+++ b/tests/testthat/test-summary-varlse.R
@@ -1,4 +1,6 @@
 test_that("VAR Coefficients Summary Table", {
+  skip_on_cran()
+  
   test_lag <- 3
   num_col <- 2
   fit_test_var <- var_lm(etf_vix[, seq_len(num_col)], test_lag)
diff --git a/tests/testthat/test-summary-vharlse.R b/tests/testthat/test-summary-vharlse.R
index 1a06a18a..37e63eca 100644
--- a/tests/testthat/test-summary-vharlse.R
+++ b/tests/testthat/test-summary-vharlse.R
@@ -1,4 +1,6 @@
 test_that("VHAR Coefficients Summary Table", {
+  skip_on_cran()
+  
   num_col <- 2
   fit_test_vhar <- vhar_lm(etf_vix[, seq_len(num_col)])
   fit_vhar_summary <- summary(fit_test_vhar)
diff --git a/tests/testthat/test-varlse.R b/tests/testthat/test-varlse.R
index d7fa1f5e..2e8fddef 100644
--- a/tests/testthat/test-varlse.R
+++ b/tests/testthat/test-varlse.R
@@ -1,5 +1,7 @@
 # var_lm()-------------------------
 test_that("Test for varlse class", {
+  skip_on_cran()
+  
   test_lag <- 3
   fit_test_var <- var_lm(etf_vix, test_lag)
   num_col <- ncol(etf_vix)
@@ -34,6 +36,8 @@ test_that("Test for varlse class", {
 })
 
 test_that("Computation Methods", {
+  skip_on_cran()
+  
   test_lag <- 3
   fit_test_nor <- var_lm(etf_vix[, 1:3], test_lag)
   fit_test_llt <- var_lm(etf_vix[, 1:3], test_lag, method = "chol")
diff --git a/tests/testthat/test-vharlse.R b/tests/testthat/test-vharlse.R
index 961dd82b..ed6ab474 100644
--- a/tests/testthat/test-vharlse.R
+++ b/tests/testthat/test-vharlse.R
@@ -1,5 +1,7 @@
 # Components of vharlse--------------
 test_that("Test for vharlse class", {
+  skip_on_cran()
+  
   fit_test_vhar <- vhar_lm(etf_vix)
   num_col <- ncol(etf_vix)
   num_row <- nrow(etf_vix)
@@ -33,6 +35,8 @@ test_that("Test for vharlse class", {
 })
 
 test_that("Computation Methods", {
+  skip_on_cran()
+  
   fit_test_nor <- vhar_lm(etf_vix[, 1:3])
   fit_test_llt <- vhar_lm(etf_vix[, 1:3], method = "chol")
   fit_test_qr <- vhar_lm(etf_vix[, 1:3], method = "qr")