R/mephasOpen.R

In mephas/mephas: Medical and Pharmaceutical Statistics Based on Shiny

##'
##' Open MEPHAS interfaces
##'
##' @title Open MEPHAS interfaces
##'
##' @return shiny interface of MEPHAS (see web-based version: https://alain003.phs.osaka-u.ac.jp/mephas/)
##'
##' @import shiny
##' @import mephas.tools
##' @import ggplot2
##' @import shinyWidgets
##' 
##' @examples
##' if (interactive()) {
##'   mephasOpen("condist")
##'}
##'
##'
##' @param method choose method from MEPHAS,
##' "condist" opens continuous distribution,
##' "disdist" opens discrete distribution,
##' "ttest" opens t test,
##' "nptest" opens non-parametric test,
##' "proptest" opens test methods for proportions,
##' "tabletest" opens test methods contingency table,
##' "anova"opens ANOVA,
##' "linereg" opens linear regression,
##' "logisreg" opens logistic regression,
##' "surv" opens survival models,
##' "pca" opens principal component analysis,
##' "pls" opens partial least square methods
##'
##' @export
mephasOpen <- function(method=c("condist",
                                "disdist",
                                "ttest",
                                "nptest",
                                "proptest",
                                "tabletest",
                                "anova",
                                "linereg",
                                "logisreg",
                                "surv",
                                "pca",
                                "pls")){
        
#if (!requireNamespace("mephas.tools")) {remotes::install_github("mephas.tools")}; 
#requireNamespace("mephas.tools", quietly = TRUE)

method <- match.arg(method)

        switch(method,
         condist = MFScondist(),
         disdist = MFSdisdist(),

         ttest   = MFSttest(),
         nptest  = MFSnptest(),
         proptest= MFSproptest(),
         tabletest=MFSrctabtest(),
         anova   = MFSanova(),

         linereg = MFSlr(),
         logisreg= MFSlogit(),
         surv    = MFSsurv(),

         pca     = MFSpca(),
         pls     = MFSpls()
         )


}