rm scm

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: nlmixr2extra
 Title: Nonlinear Mixed Effects Models in Population PK/PD, Extra Support
     Functions
-Version: 3.0.0
+Version: 3.0.1
 Authors@R: c(
     person("Matthew", "Fidler", email="matthew.fidler@gmail.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0001-8538-6691")),

NAMESPACE

@@ -20,15 +20,12 @@ export(adaptivelassoCoefficients)
 export(addCatCovariates)
 export(addorremoveCovariate)
 export(adjustedlassoCoefficients)
-export(backwardSearch)
 export(bootplot)
 export(bootstrapFit)
 export(buildcovInfo)
 export(buildupatedUI)
-export(covarSearchAuto)
 export(fixedControl)
 export(foldgen)
-export(forwardSearch)
 export(horseshoeSummardf)
 export(ini)
 export(knit_print)

NEWS.md

@@ -1,3 +1,7 @@
+# nlmixr2extra 3.0.1
+
+* Remove non-functioning SCM for now (#71)
+
 # nlmixr2extra 3.0.0
 
 * New `profile()` method for likelihood profiling (Issue #1)

R/SCM.R

@@ -18,7 +18,7 @@
 #'   of the covariate selection as well as "resFwd" for the forward
 #'   selection method and "resBck" for the backward selection method.
 #'
-#' @export
+#' @noRd
 #' @author Vipul Mann, Matthew Fidler, Vishal Sarsani
 #'
 #' @examples
@@ -146,7 +146,7 @@ covarSearchAuto <- function(fit,
 #'
 #' @return returns the updated 'fit' object at the end of the forward search and a table of information for all the covariates tested
 #' @author Vipul Mann, Matthew Fidler, Vishal Sarsani
-#' @export
+#' @noRd
 forwardSearch <- function(varsVec,covarsVec,catvarsVec=NULL,fit, pVal = 0.05, outputDir, restart = FALSE) {
   ## Update data and covarsvec if categorical variables are provided
   if (!inherits(fit, "nlmixr2FitCore")) {
@@ -315,7 +315,7 @@ forwardSearch <- function(varsVec,covarsVec,catvarsVec=NULL,fit, pVal = 0.05, ou
 #' @param restart a boolean that controls if the search should be restarted; default is FALSE
 #'
 #' @return returns the updated 'fit' object at the end of the backward search and a table of information for all the covariates tested
-#' @export
+#' @noRd
 #'
 #' @author Vipul Mann, Matthew Fidler, Vishal Sarsani
 backwardSearch <- function(varsVec,covarsVec,catvarsVec=NULL, fitorig, fitupdated, pVal = 0.01, reFitCovars = FALSE, outputDir, restart = FALSE) {