Update screen.template.R

ecpolley · Aug 12, 2019 · 30e4af6 · 30e4af6
1 parent f3a75e7
commit 30e4af6
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/screen.template.R b/R/screen.template.R
@@ -6,7 +6,7 @@ All <- function(X, ...) {
 # screen functions must return a logical vector of length ncol(X)
 screen.template <- function (Y, X, family, obsWeights, id, ...) 
 {
-  # .SL.require('pkg')
+  # library('pkg')
   if (family$family == "gaussian") {
 
   }
@@ -18,5 +18,5 @@ screen.template <- function (Y, X, family, obsWeights, id, ...)
 }
 
 write.screen.template <- function(file = '', ...) {
-  cat('screen.template <- function(Y, X, family, obsWeights, id, ...) {\n  # load required packages\n  # require(\'pkg\')\n  if (family$family == \'gaussian\') {\n    \n  }\n  if (family$family == \'binomial\') {\n  \n  }\n  # whichVariable is a logical vector,\n  # TRUE indicates variable will be used\n  whichVariable <- rep(TRUE, ncol(X))\n  return(whichVariable)\n}', file = file, ...)
-}
+  cat('screen.template <- function(Y, X, family, obsWeights, id, ...) {\n  # load required packages\n  # library(\'pkg\')\n  if (family$family == \'gaussian\') {\n    \n  }\n  if (family$family == \'binomial\') {\n  \n  }\n  # whichVariable is a logical vector,\n  # TRUE indicates variable will be used\n  whichVariable <- rep(TRUE, ncol(X))\n  return(whichVariable)\n}', file = file, ...)
+}