tnagler / wdm-r Goto Github PK

# Example taken from: http://www.math.wpi.edu/saspdf/stat/chap28.pdf
# pp. 1349

library(DescTools)

Pain <- as.table(matrix(c(26, 26, 23, 18, 9, 6, 7, 9, 14, 23), 
                        nrow=5, 
                        dimnames = list(Dose = c("0", "1", "2", "3", "4"), 
                                        Adverse = c("No", "Yes")))) 

Desc(Pain, verb=3)

# consistent with the SAS results
with(Untable(Pain), cor(N(Adverse), N(Dose), method = "spearman"))
DescTools:::SpearmanRho(Pain)

# correct:
with(Untable(Pain),
     wdm::indep_test(as.numeric(Adverse), as.numeric(Dose), 
                     method = "spearman"))

# ******************************
# wrong:
with(as.data.frame(Pain),
     wdm::indep_test(as.numeric(Adverse), as.numeric(Dose), 
                     method = "spearman", weights = Freq))
# ***********************

# all correct (and consistent with SAS):
with(Untable(Pain),
     wdm::indep_test(as.numeric(Adverse), as.numeric(Dose), 
                     method = "pearson"))
with(as.data.frame(Pain),
     wdm::indep_test(as.numeric(Adverse), as.numeric(Dose), 
                     method = "pearson", weights = Freq))

with(Untable(Pain),
     wdm::indep_test(as.numeric(Adverse), as.numeric(Dose), 
                     method = "kendall"))
with(as.data.frame(Pain),
     wdm::indep_test(as.numeric(Adverse), as.numeric(Dose), 
                     method = "kendall", weights = Freq))

* installing *source* package ‘wdm’ ...
** using staged installation
** libs
/opt/local/bin/g++-mp-12 -std=gnu++11 -I"/opt/local/Library/Frameworks/R.framework/Resources/include" -DNDEBUG -I../inst/include -I'/opt/local/Library/Frameworks/R.framework/Versions/4.2/Resources/library/Rcpp/include' -isystem/opt/local/include/LegacySupport -I/opt/local/include   -fPIC  -pipe -Os -arch ppc  -c RcppExports.cpp -o RcppExports.o
/opt/local/bin/g++-mp-12 -std=gnu++11 -I"/opt/local/Library/Frameworks/R.framework/Resources/include" -DNDEBUG -I../inst/include -I'/opt/local/Library/Frameworks/R.framework/Versions/4.2/Resources/library/Rcpp/include' -isystem/opt/local/include/LegacySupport -I/opt/local/include   -fPIC  -pipe -Os -arch ppc  -c wrappers.cpp -o wrappers.o
wrappers.cpp:3:10: fatal error: wdm.hpp: No such file or directory
    3 | #include "wdm.hpp"
      |          ^~~~~~~~~
compilation terminated.
make: *** [wrappers.o] Error 1
ERROR: compilation failed for package ‘wdm’
* removing ‘/opt/local/var/macports/build/_opt_PPCRosettaPorts_R_R-wdm/R-wdm/work/.tmp/RtmpSgYHLt/Rinst8a3d603ff8f1/wdm’
      -----------------------------------
ERROR: package installation failed
Command failed:  cd "/opt/local/var/macports/build/_opt_PPCRosettaPorts_R_R-wdm/R-wdm/work/wdm-r-0.2.3" && /opt/local/bin/R CMD build . --no-manual --no-build-vignettes 
Exit code: 1