R/subroutine_tests.R

In mmansolf/TSI: Custom mice Functions for True Score Imputation

#!/usr/bin/env C:/Program Files/R/R-4.2.1/bin/Rscript.exe

# library(testthat,
#         lib.loc=c("C:/Users/Max/Documents/R/win-library/4.1",
#                   "C:/Program Files/R/R-4.2.1/library"))
# source('R/subroutines.R')

###################
# ALL SUBROUTINES #
# test_that("All the subroutine functions exist", {
#   expect_true(exists('PrepareMemParam'))
#   expect_true(exists('generateRandomMultivarRegreParam'))
#   expect_true(exists('createMatrixonW'))
#   expect_true(exists('completeGmatrix'))
#   expect_true(exists('isSymmetric'))
#   expect_true(exists('sweep'))
#   expect_true(exists('generateMissingvalue'))
#   expect_true(exists('MIEC'))
# })

###################
# PrepareMemParam #