Skip to content

Commit

Permalink
round of test case .Rout.save file update due to typo fixes in commen…
Browse files Browse the repository at this point in the history
…ts and output adjustments as well as non-significant numerical diffs (new R version)
  • Loading branch information
tappek committed Jul 2, 2024
1 parent 91e2ef8 commit 23fbd4d
Show file tree
Hide file tree
Showing 9 changed files with 76 additions and 62 deletions.
12 changes: 8 additions & 4 deletions inst/tests/test_fixef2.Rout.save
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@

R version 4.1.2 (2021-11-01) -- "Bird Hippie"
Copyright (C) 2021 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)
R version 4.4.1 (2024-06-14 ucrt) -- "Race for Your Life"
Copyright (C) 2024 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.
Expand Down Expand Up @@ -222,6 +222,10 @@ Loading required package: Matrix

Attaching package: 'lfe'

The following object is masked from 'package:fixest':

fepois

The following object is masked from 'package:plm':

sargan
Expand Down Expand Up @@ -757,4 +761,4 @@ The following object is masked from 'package:plm':
>
> proc.time()
user system elapsed
4.28 0.68 5.07
2.73 0.37 3.17
12 changes: 6 additions & 6 deletions inst/tests/test_groupGenerics_pseries.Rout.save
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@

R version 4.2.1 (2022-06-23 ucrt) -- "Funny-Looking Kid"
Copyright (C) 2022 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)
R version 4.4.1 (2024-06-14 ucrt) -- "Race for Your Life"
Copyright (C) 2024 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.
Expand Down Expand Up @@ -136,7 +136,7 @@ F-statistic: 3064.81 on 4 and 764 DF, p-value: < 2.22e-16
> if (!isTRUE(all.equal(zz$coefficients, zz2$coefficients))) stop("estimation results not equal")
>
>
> ############# (3) assinging to a pdata.frame #############
> ############# (3) assigning to a pdata.frame #############
> ## test for assigning by $<- to a pdata.frame
> ## pre rev. 634: decimals which had been integers previously were converted to integers with typeof == integer
> ## and gave wrong results.
Expand Down Expand Up @@ -1090,7 +1090,7 @@ F-statistic: 3064.81 on 4 and 764 DF, p-value: < 2.22e-16
[1] "double"
>
> y2 <- y / 10
> class(y2) # c("myclass", "interger") - not propagated to c("myclass", "numeric")
> class(y2) # c("myclass", "integer") - not propagated to c("myclass", "numeric")
[1] "myclass" "integer"
> mode(y2)
[1] "numeric"
Expand Down Expand Up @@ -1175,4 +1175,4 @@ attr(,"class")
>
> proc.time()
user system elapsed
1.64 0.18 1.82
1.45 0.26 1.70
12 changes: 6 additions & 6 deletions inst/tests/test_lag_lead.Rout.save
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@

R version 4.1.1 (2021-08-10) -- "Kick Things"
Copyright (C) 2021 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)
R version 4.4.1 (2024-06-14 ucrt) -- "Race for Your Life"
Copyright (C) 2024 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.
Expand Down Expand Up @@ -175,7 +175,7 @@ Levels: 1 2 3 4 5 6 7 8 9 10
11 10 9 8 7 6 5 4 3 2
200 Levels: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 ... 200
> if (!(length(unique(Grunfeld$fac)) == 200)) stop("wrong factor values") # 200
> if (!(length(unique(plm:::lagr.pseries(Grunfeld$fac))) == 191)) stop("plm:::lagr.pseries: wrong actually uniquely occuring factor values") # 191
> if (!(length(unique(plm:::lagr.pseries(Grunfeld$fac))) == 191)) stop("plm:::lagr.pseries: wrong actually uniquely occurring factor values") # 191
> if (!(length(levels(plm:::lagr.pseries(Grunfeld$fac))) == 200)) stop("wrong factor levels") # 200
>
> # plm::lead eliminates e.g., level "200"
Expand Down Expand Up @@ -222,7 +222,7 @@ Levels: 1 2 3 4 5 6 7 8 9 10
9 8 7 6 5 4 3 2 1 <NA>
200 Levels: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 ... 200
> if (!(length(unique(Grunfeld$fac)) == 200)) stop("wrong factor levels") # 200
> if (!(length(unique(plm:::leadr.pseries(Grunfeld$fac))) == 191)) stop("plm:::leadr.pseries: wrong actually uniquely occuring factor values") # 191
> if (!(length(unique(plm:::leadr.pseries(Grunfeld$fac))) == 191)) stop("plm:::leadr.pseries: wrong actually uniquely occurring factor values") # 191
> if (!(length(levels(plm:::leadr.pseries(Grunfeld$fac))) == 200)) stop("plm:::leadr.pseries: wrong factor levels") # 200
>
>
Expand Down Expand Up @@ -1199,4 +1199,4 @@ FALSE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE TRUE
>
> proc.time()
user system elapsed
3.67 0.42 4.26
1.59 0.17 1.75
10 changes: 5 additions & 5 deletions inst/tests/test_lagt_leadt.Rout.save
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@

R version 4.2.1 (2022-06-23 ucrt) -- "Funny-Looking Kid"
Copyright (C) 2022 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)
R version 4.4.1 (2024-06-14 ucrt) -- "Race for Your Life"
Copyright (C) 2024 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.
Expand Down Expand Up @@ -176,7 +176,7 @@ Levels: 1 2 3 4 5 6 7 8 9 10
11 10 9 8 7 6 5 4 3 2
200 Levels: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 ... 200
> if (!(length(unique(Grunfeld$fac)) == 200)) stop("wrong factor levels") # 200
> if (!(length(unique(lag(Grunfeld$fac))) == 191)) stop("wrong actually uniquely occuring factor levels") # 191
> if (!(length(unique(lag(Grunfeld$fac))) == 191)) stop("wrong actually uniquely occurring factor levels") # 191
> if (!(length(levels(lag(Grunfeld$fac))) == 200)) stop("wrong factor levels") # 200
>
> # lead eliminates e.g., level "200"
Expand Down Expand Up @@ -1302,4 +1302,4 @@ In pdata.frame(dfNA) :
>
> proc.time()
user system elapsed
1.68 0.18 1.85
2.31 0.42 2.85
26 changes: 16 additions & 10 deletions inst/tests/test_misc.Rout.save
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@

R version 4.2.2 (2022-10-31 ucrt) -- "Innocent and Trusting"
Copyright (C) 2022 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)
R version 4.4.1 (2024-06-14 ucrt) -- "Race for Your Life"
Copyright (C) 2024 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.
Expand Down Expand Up @@ -1505,8 +1505,10 @@ Wald test for time dummies: chisq(7) = 14.71138 (p-value = 0.039882)
+ effect = "twoways", model = "twosteps",
+ gmm.inst = ~log(emp), lag.gmm = list(c(2,99)))
Warning messages:
1: use of 'dynformula()' is deprecated, use a multi-part formula instead
2: use of 'dynformula()' is deprecated, use a multi-part formula instead
1: In dynformula(formula = log(emp) ~ log(wage) + log(capital) + log(output), :
use of 'dynformula()' is deprecated, use a multi-part formula instead
2: In dynformula(gmm.inst, lag.form = lag.gmm) :
use of 'dynformula()' is deprecated, use a multi-part formula instead
> summary(z1, robust = FALSE)
Twoways effects Two-steps model Difference GMM

Expand Down Expand Up @@ -1546,8 +1548,10 @@ Wald test for time dummies: chisq(6) = 26.9045 (p-value = 0.0001509)
+ gmm.inst = ~log(emp) + log(wage) + log(capital),
+ lag.gmm = c(2,99), transformation = "ld")
Warning messages:
1: use of 'dynformula()' is deprecated, use a multi-part formula instead
2: use of 'dynformula()' is deprecated, use a multi-part formula instead
1: In dynformula(log(emp) ~ log(wage) + log(capital), list(1, 1, 1)) :
use of 'dynformula()' is deprecated, use a multi-part formula instead
2: In dynformula(gmm.inst, lag.form = lag.gmm) :
use of 'dynformula()' is deprecated, use a multi-part formula instead
> summary(z2, robust = TRUE)
Twoways effects One-step model System GMM

Expand Down Expand Up @@ -1588,7 +1592,8 @@ Wald test for time dummies: chisq(7) = 14.71138 (p-value = 0.039882)
+ sex + black + bluecol + south + smsa + ind,
+ data = Wages, model = "ht", index = 595)
Warning message:
uses of 'pht()' and 'plm(., model = "ht")' are discouraged, better use 'plm(., model = "random", random.method = "ht", inst.method = "baltagi"/"am"/"bms")' for Hausman-Taylor, Amemiya-MaCurdy, and Breusch-Mizon-Schmidt estimator
In pht(lwage ~ wks + south + smsa + married + exp + I(exp^2) + bluecol + :
uses of 'pht()' and 'plm(., model = "ht")' are discouraged, better use 'plm(., model = "random", random.method = "ht", inst.method = "baltagi"/"am"/"bms")' for Hausman-Taylor, Amemiya-MaCurdy, and Breusch-Mizon-Schmidt estimator
> summary(ht)
Oneway (individual) effect Hausman-Taylor Model
(Hausman-Taylor estimator)
Expand Down Expand Up @@ -1643,7 +1648,8 @@ Chisq: 6891.87 on 12 DF, p-value: < 2.22e-16
+ sex + black + bluecol + south + smsa + ind,
+ data = Wages, model = "am", index = 595)
Warning message:
uses of 'pht()' and 'plm(., model = "ht")' are discouraged, better use 'plm(., model = "random", random.method = "ht", inst.method = "baltagi"/"am"/"bms")' for Hausman-Taylor, Amemiya-MaCurdy, and Breusch-Mizon-Schmidt estimator
In pht(lwage ~ wks + south + smsa + married + exp + I(exp^2) + bluecol + :
uses of 'pht()' and 'plm(., model = "ht")' are discouraged, better use 'plm(., model = "random", random.method = "ht", inst.method = "baltagi"/"am"/"bms")' for Hausman-Taylor, Amemiya-MaCurdy, and Breusch-Mizon-Schmidt estimator
> summary(am)
Oneway (individual) effect Hausman-Taylor Model
(Amemiya-MaCurdy estimator)
Expand Down Expand Up @@ -1885,4 +1891,4 @@ Coefficients:
>
> proc.time()
user system elapsed
13.39 0.75 14.37
10.04 0.75 10.76
24 changes: 12 additions & 12 deletions inst/tests/test_pcce_pmg.Rout.save
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@

R version 4.3.0 (2023-04-21 ucrt) -- "Already Tomorrow"
Copyright (C) 2023 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)
R version 4.4.1 (2024-06-14 ucrt) -- "Race for Your Life"
Copyright (C) 2024 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.
Expand Down Expand Up @@ -8332,10 +8332,10 @@ WYOMING-1986 -1.248207e-03 -1.020804e-01 -2.996379e-02 0.5683338321
> # vcovXX
> vcovHC(pccemgmod)
log(pcap) log(pc) log(emp) unemp
log(pcap) 1.438222e-15 -4.704070e-17 6.919599e-16 4.396291e-18
log(pc) -4.698838e-17 1.597205e-18 -2.275796e-17 -1.447567e-19
log(emp) 6.920293e-16 -2.290015e-17 3.337731e-16 2.122364e-18
unemp 4.397651e-18 -1.461715e-19 2.123456e-18 1.351272e-20
log(pcap) 1.438205e-15 -4.701335e-17 6.919188e-16 4.395993e-18
log(pc) -4.697937e-17 1.584901e-18 -2.274286e-17 -1.447705e-19
log(emp) 6.920185e-16 -2.274348e-17 3.338970e-16 2.123371e-18
unemp 4.397136e-18 -1.446445e-19 2.123785e-18 1.351029e-20
attr(,"cluster")
[1] "group"
> vcovHC(pccepmod)
Expand All @@ -8349,10 +8349,10 @@ attr(,"cluster")
>
> vcovHC(pccemgmod_unbal)
log(pcap) log(pc) log(emp) unemp
log(pcap) 1.030052e-18 1.766303e-19 3.393092e-19 2.021816e-21
log(pc) 1.999640e-19 2.295395e-20 5.191246e-20 -2.254747e-22
log(emp) 2.777390e-19 6.198624e-20 1.329175e-19 1.476310e-21
unemp 1.369783e-21 1.191913e-22 9.951117e-22 9.686219e-24
log(pcap) 1.022578e-18 1.701106e-19 2.859291e-19 2.108684e-21
log(pc) 1.675301e-19 3.376572e-20 6.811090e-20 5.342066e-22
log(emp) 3.258246e-19 6.893985e-20 1.623706e-19 6.085322e-22
unemp 2.501125e-21 8.002402e-23 9.226476e-22 -1.254200e-24
attr(,"cluster")
[1] "group"
> vcovHC(pccepmod_unbal)
Expand Down Expand Up @@ -17118,4 +17118,4 @@ Multiple R-squared: 0.99982
>
> proc.time()
user system elapsed
2.65 0.40 3.06
2.73 0.46 3.18
10 changes: 5 additions & 5 deletions inst/tests/test_pgmm.Rout.save
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@

R version 4.3.0 (2023-04-21 ucrt) -- "Already Tomorrow"
Copyright (C) 2023 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)
R version 4.4.1 (2024-06-14 ucrt) -- "Race for Your Life"
Copyright (C) 2024 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.
Expand Down Expand Up @@ -716,10 +716,10 @@ Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Sargan test: chisq(27) = 28.86345 (p-value = 0.36755)
Autocorrelation test (1): normal = -4.750024 (p-value = 2.0339e-06)
Autocorrelation test (2): normal = 1.857129 (p-value = 0.063293)
Wald test for coefficients: chisq(26) = 6139.501 (p-value = < 2.22e-16)
Wald test for coefficients: chisq(26) = 6139.5 (p-value = < 2.22e-16)
Warning message:
In vcovHC.pgmm(object) : a general inverse is used
>
> proc.time()
user system elapsed
7.21 0.53 7.81
7.73 0.81 8.48
20 changes: 12 additions & 8 deletions inst/tests/test_pht.Rout.save
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@

R version 4.2.0 (2022-04-22 ucrt) -- "Vigorous Calisthenics"
Copyright (C) 2022 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)
R version 4.4.1 (2024-06-14 ucrt) -- "Race for Your Life"
Copyright (C) 2024 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.
Expand All @@ -25,7 +25,8 @@ Type 'q()' to quit R.
+ sex + black + bluecol + south + smsa + ind,
+ data = Wages, model = "ht", index = 595)
Warning message:
uses of 'pht()' and 'plm(., model = "ht")' are discouraged, better use 'plm(., model = "random", random.method = "ht", inst.method = "baltagi"/"am"/"bms")' for Hausman-Taylor, Amemiya-MaCurdy, and Breusch-Mizon-Schmidt estimator
In pht(lwage ~ wks + south + smsa + married + exp + I(exp^2) + bluecol + :
uses of 'pht()' and 'plm(., model = "ht")' are discouraged, better use 'plm(., model = "random", random.method = "ht", inst.method = "baltagi"/"am"/"bms")' for Hausman-Taylor, Amemiya-MaCurdy, and Breusch-Mizon-Schmidt estimator
> summary(ht)
Oneway (individual) effect Hausman-Taylor Model
(Hausman-Taylor estimator)
Expand Down Expand Up @@ -81,7 +82,8 @@ Chisq: 6891.87 on 12 DF, p-value: < 2.22e-16
+ sex + black + bluecol + south + smsa + ind,
+ data = Wages, model = "am", index = 595)
Warning message:
uses of 'pht()' and 'plm(., model = "ht")' are discouraged, better use 'plm(., model = "random", random.method = "ht", inst.method = "baltagi"/"am"/"bms")' for Hausman-Taylor, Amemiya-MaCurdy, and Breusch-Mizon-Schmidt estimator
In pht(lwage ~ wks + south + smsa + married + exp + I(exp^2) + bluecol + :
uses of 'pht()' and 'plm(., model = "ht")' are discouraged, better use 'plm(., model = "random", random.method = "ht", inst.method = "baltagi"/"am"/"bms")' for Hausman-Taylor, Amemiya-MaCurdy, and Breusch-Mizon-Schmidt estimator
> summary(ht2)
Oneway (individual) effect Hausman-Taylor Model
(Amemiya-MaCurdy estimator)
Expand Down Expand Up @@ -136,7 +138,8 @@ Chisq: 6879.2 on 12 DF, p-value: < 2.22e-16
+ sex + black + bluecol + south + smsa + ind,
+ data = Wages, model = "bms", index = 595)
Warning message:
uses of 'pht()' and 'plm(., model = "ht")' are discouraged, better use 'plm(., model = "random", random.method = "ht", inst.method = "baltagi"/"am"/"bms")' for Hausman-Taylor, Amemiya-MaCurdy, and Breusch-Mizon-Schmidt estimator
In pht(lwage ~ wks + south + smsa + married + exp + I(exp^2) + bluecol + :
uses of 'pht()' and 'plm(., model = "ht")' are discouraged, better use 'plm(., model = "random", random.method = "ht", inst.method = "baltagi"/"am"/"bms")' for Hausman-Taylor, Amemiya-MaCurdy, and Breusch-Mizon-Schmidt estimator
> summary(ht3)
Oneway (individual) effect Hausman-Taylor Model
(Breusch-Mizon-Schmidt estimator)
Expand Down Expand Up @@ -191,7 +194,8 @@ Chisq: 6467.37 on 12 DF, p-value: < 2.22e-16
+ sex + black + bluecol + south + smsa + ind, model = "ht",
+ data = Wages, index = 595)
Warning message:
uses of 'pht()' and 'plm(., model = "ht")' are discouraged, better use 'plm(., model = "random", random.method = "ht", inst.method = "baltagi"/"am"/"bms")' for Hausman-Taylor, Amemiya-MaCurdy, and Breusch-Mizon-Schmidt estimator
In pht(formula = lwage ~ wks + south + smsa + married + exp + I(exp^2) + :
uses of 'pht()' and 'plm(., model = "ht")' are discouraged, better use 'plm(., model = "random", random.method = "ht", inst.method = "baltagi"/"am"/"bms")' for Hausman-Taylor, Amemiya-MaCurdy, and Breusch-Mizon-Schmidt estimator
> summary(ht4)
Oneway (individual) effect Hausman-Taylor Model
(Hausman-Taylor estimator)
Expand Down Expand Up @@ -417,4 +421,4 @@ Chisq: 6467.37 on 12 DF, p-value: < 2.22e-16
>
> proc.time()
user system elapsed
2.85 0.43 3.21
3.03 0.29 3.34
12 changes: 6 additions & 6 deletions inst/tests/test_plmtest_unbalanced.Rout.save
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@

R version 4.2.0 (2022-04-22 ucrt) -- "Vigorous Calisthenics"
Copyright (C) 2022 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)
R version 4.4.1 (2024-06-14 ucrt) -- "Race for Your Life"
Copyright (C) 2024 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.
Expand Down Expand Up @@ -44,7 +44,7 @@ Type 'q()' to quit R.
> # [...]
>
> ##### Grunfeld data set - balanced ####
> # Table 4.2 [Output from EViews], similiar to above table but with p-values
> # Table 4.2 [Output from EViews], similar to above table but with p-values
> ##### EViews add-in BPTest for some older version of EViews needed:
> ##### http://www.eviews.com/Addins/addins.shtml#addins
> ##### http://forums.eviews.com/viewtopic.php?f=23&t=2228
Expand Down Expand Up @@ -628,7 +628,7 @@ chibarsq
> # , data = pnlswork, model = "pooling")
> #
> #
> # # Reassembles Exmaple 1 in http://www.stata.com/manuals14/xtxtregpostestimation.pdf
> # # Reassembles Example 1 in http://www.stata.com/manuals14/xtxtregpostestimation.pdf
> # # use modified plmtest() as a wrapper
> # options(digits = 10)
> # plmtest(plm_pool_nlswork, type="bp")
Expand All @@ -642,4 +642,4 @@ chibarsq
>
> proc.time()
user system elapsed
1.82 0.23 2.04
2.09 0.25 2.31

0 comments on commit 23fbd4d

Please sign in to comment.