cvxr

Author: Matt Secrest

NAMESPACE

@@ -62,3 +62,4 @@ importFrom(stats,rbinom)
 importFrom(stats,rmultinom)
 importFrom(stats,var)
 importFrom(utils,data)
+importMethodsFrom(CVXR,solve)

R/SCM.R

@@ -222,7 +222,7 @@ subject_SC <- function(subject, X10, X00, long_term_col_name, lambda) {
   obj <- loss + penal(w = w, x1 = x1, X0 = X0, lambda = lambda)
   constr <- list(sum(w) == 1, w >= 0)
   prob <- Problem(Minimize(obj), constr)
-  result <- CVXR::solve(prob, solver = "ECOS")
+  result <- solve(prob, solver = "ECOS")
   # estimated weight for this subject
   wt.est <- result$getValue(w)
   # sc estimate for all time points for this subject
@@ -268,7 +268,7 @@ lambdacv <- function(ec,
         obj <- loss + penal(w = w, x1 = x1, X0 = X0, lambda = lambda)
         constr <- list(sum(w) == 1, w >= 0)
         prob <- Problem(Minimize(obj), constr)
-        result <- CVXR::solve(prob, solver = "ECOS")
+        result <- solve(prob, solver = "ECOS")
         # estimated weight for this subject
         wt.est <- result$getValue(w)
         # sc estimate for all time points for this subject

R/package.R

@@ -6,6 +6,7 @@
 #' @import tidyr
 #' @import boot
 #' @importFrom CVXR Variable Minimize Problem
+#' @importMethodsFrom CVXR solve
 #' @import progress
 #' @import future.apply
 #' @importFrom methods is new