Running examples in 'anoint-Ex.R' failed
The error most likely occurred in:

> ### Name: anoint
> ### Title: Create analysis of interactions object
> ### Aliases: anoint anoint-class
> 
> ### ** Examples
> 
> 
> # NO INTERACTION CONDITION, LOGISTIC MODEL
> 
> null.interaction <- data.anoint(
+                              alpha = c(log(.5),log(.5*.75)),
+                              beta = log(c(1.5,2)),
+                              gamma = rep(1,2),
+                              mean = c(0,0),
+                              vcov = diag(2),
+                              type="survival", n = 500
+                              )
> 
> head(null.interaction)
           V1         V2          y trt event
1  1.13496509  0.8500435 1.76330070   1     1
2  1.11193185 -0.9253130 0.03070875   1     1
3 -0.87077763  0.8935812 7.78405747   1     1
4  0.21073159 -0.9410097 5.72447773   1     1
5  0.06939565  0.5389521 0.50413901   1     0
6 -1.66264885 -0.1819744 2.24119550   1     1
> 
> object <- anoint(Surv(y, event)~(V1+V2)*trt,data=null.interaction,family="coxph")
> 
> object
Surv(y, event) ~ (V1 + V2) * trt
> 
> summary(object)
Length  Class   Mode 
     1 anoint     S4 
> 
> # NO INTERACTION CONDITION, WITH PROGNOSTIC SELECTION
> 
> null.interaction <- data.anoint(
+                              alpha = c(log(.2/.8),log(.2*.75/(1-.2*.75))),
+                              beta = c(1.5,2,0,0),
+                              gamma = rep(1,4),
+                              mean = rep(0,4),
+                              vcov = diag(4),
+                              type="binomial", n = 500
+                              )
> 
> head(null.interaction)
          V1           V2         V3          V4 y trt
1  0.8673091  0.865266146 -0.3077974 -0.79450198 1   1
2 -0.2844030 -0.043704121 -2.0828215  0.42120698 0   1
3  2.1044999 -0.005075368 -0.4167177 -0.08699927 1   1
4  0.1686389 -0.327485200 -1.3194072 -0.23285019 0   1
5  0.1879914  0.445059391 -0.1500576  1.07101439 0   1
6  0.7823411  1.598739005  0.2426519  0.59625770 1   1
> 
> object <- anoint(y~(V1+V2+V3+V4)*trt,data=null.interaction,select="glmnet")
Performing selection procedure for prognostic model...
5 x 1 sparse Matrix of class "dgCMatrix"
Error in isFALSE(suppRows) : could not find function "isFALSE"
Calls: anoint -> select.glmnet -> print -> print -> .local
Execution halted