R Under development (unstable) (2023-11-11 r85510 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2023 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(testthat)
> library(SGDinference)
> 
> test_check("SGDinference")
Warning: no_studentize is bigger than the sample size. no_studentize is set to be the sample size. 
Warning: no_studentize is bigger than the sample size. no_studentize is set to be the sample size. 
Call: 
sgdi_lm(formula = y ~ ., data = my.dat, inference = "rs")

Coefficients: 
            Coefficient CI.Lower CI.Upper
(Intercept)    5.000673 4.993611 5.007736
x.1            4.999153 4.985117 5.013190
x.2            5.003266 4.998009 5.008524
x.3            4.996102 4.988518 5.003685
x.4            4.996768 4.984966 5.008570

Significance Level: 95 % 
Call: 
sgdi_lm(formula = y ~ ., data = my.dat, inference = "rss")

Coefficients: 
    Coefficient CI.Lower CI.Upper
x.1    4.999691 4.994107 5.005275

Significance Level: 95 % 
Call: 
sgdi_lm(formula = y ~ ., data = my.dat, inference = "rsd")

Coefficients: 
    Coefficient CI.Lower CI.Upper
x.1    5.004687 4.999239 5.010134
x.2    4.997782 4.992202 5.003362
x.3    4.999273 4.993485 5.005061
x.4    4.994352 4.980948 5.007755

Significance Level: 95 % 
Warning: no_studentize is bigger than the sample size. no_studentize is set to be the sample size. 
Warning: no_studentize is bigger than the sample size. no_studentize is set to be the sample size. 
Call: 
sgdi_qr(formula = y ~ ., data = my.dat, inference = "rs")

Coefficients: 
            Coefficient CI.Lower CI.Upper
(Intercept)    5.007736 4.996854 5.018618
x.1            4.998421 4.992416 5.004425
x.2            4.994047 4.980253 5.007841
x.3            5.009112 5.002241 5.015983
x.4            5.007421 4.998842 5.016001

Significance Level: 95 % 
Call: 
sgdi_qr(formula = y ~ ., data = my.dat, inference = "rss")

Coefficients: 
    Coefficient CI.Lower CI.Upper
x.1    5.010321  4.99665 5.023992

Significance Level: 95 % 
Call: 
sgdi_qr(formula = y ~ ., data = my.dat, inference = "rsd")

Coefficients: 
    Coefficient CI.Lower CI.Upper
x.1    5.001270 4.996869 5.005672
x.2    5.005893 4.984316 5.027470
x.3    5.001577 4.996266 5.006888
x.4    4.988868 4.982327 4.995409

Significance Level: 95 % 
Confidence level should be chosen from 0.95, 0.90, and 0.80. 
We report the default level 0.95. 
Call: 
sgd_qr(formula = y ~ ., data = my.dat, path = F)

Coefficients: 
            Coefficient
(Intercept)    5.004558
x.1            5.003109
x.2            4.997978
x.3            5.007892
x.4            4.993732

Call: 
sgdi_lm(formula = y ~ ., data = my.dat, inference = "rs")

Coefficients: 
            Coefficient CI.Lower CI.Upper
(Intercept)    5.000929 4.995110 5.006748
x.1            5.003230 4.996612 5.009847
x.2            4.999742 4.994503 5.004981
x.3            4.998096 4.989080 5.007112
x.4            5.001539 4.996951 5.006126

Significance Level: 95 % 
Call: 
sgdi_lm(formula = y ~ ., data = my.dat, inference = "rss")

Coefficients: 
    Coefficient CI.Lower CI.Upper
x.1    4.995479 4.985762 5.005196

Significance Level: 95 % 
Call: 
sgdi_lm(formula = y ~ ., data = my.dat, inference = "rsd")

Coefficients: 
    Coefficient CI.Lower CI.Upper
x.1    5.002714 4.996613 5.008815
x.2    4.998327 4.978344 5.018310
x.3    4.996738 4.989115 5.004362
x.4    4.994857 4.973691 5.016022

Significance Level: 95 % 
Confidence level should be chosen from 0.95, 0.90, and 0.80. 
We report the default level 0.95. 
Call: 
sgd_lm(formula = y ~ ., data = my.dat)

Coefficients: 
            Coefficient
(Intercept)    4.999489
x.1            5.002333
x.2            5.001386
x.3            4.996893
x.4            5.001370

[ FAIL 0 | WARN 0 | SKIP 0 | PASS 68 ]
> 
> proc.time()
   user  system elapsed 
  13.81    1.32   15.14