Running examples in ‘WeightedROC-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: WeightedAUC
> ### Title: WeightedAUC
> ### Aliases: WeightedAUC
> 
> ### ** Examples
> 
> 
> library(WeightedROC)
> ## Compute the AUC for this weighted data set.
> y <- c(0, 0, 1, 1, 1)
> w <- c(1, 1, 1, 4, 5)
> y.hat <- c(1, 2, 3, 1, 1)
> tp.fp <- WeightedROC(y.hat, y, w)
> (wauc <- WeightedAUC(tp.fp))
[1] 0.325
> 
> if(require(glmnet)){
+ 
+   ## glmnet 1.9-5 (2013-8-1) also has a function called auc, with a
+   ## third argument "w" that seems to be for weights. In a data set
+   ## with no tied scores, glmnet::auc is the same as WeightedAUC.
+   y <- c(0, 0, 1, 0, 1)
+   y.hat <- c(1, 2, 3, 4, 5)
+   w <- c(1, 1, 1, 4, 5)
+   rbind(
+     `glmnet::auc`=c(
+       missing.weights=glmnet::auc(y, y.hat),
+       unequal.weights=glmnet::auc(y, y.hat, w),
+       equal.weights=glmnet::auc(y, y.hat, rep(1, length(y)))),
+     `WeightedROC::WeightedAUC`=c(
+       WeightedAUC(WeightedROC(y.hat, y)),
+       WeightedAUC(WeightedROC(y.hat, y, w)),
+       WeightedAUC(WeightedROC(y.hat, y, rep(1, length(y))))))
+   
+   ## In a data set with tied scores, using glmnet::auc(y,prob) with
+   ## a missing third argument gives the same result as WeightedAUC,
+   ## but glmnet::auc(y,prob,w) does not.
+   set.seed(1)
+   y <- c(0, 0, 1, 1, 1)
+   w <- c(1, 1, 1, 4, 5)
+   y.hat <- c(1, 2, 3, 1, 1)
+   rbind(
+     `glmnet::auc`=c(
+       missing.weights=glmnet::auc(y, y.hat),
+       unequal.weights=glmnet::auc(y, y.hat, w),
+       equal.weights=glmnet::auc(y, y.hat, rep(1, length(y)))),
+     `WeightedROC::WeightedAUC`=c(
+       WeightedAUC(WeightedROC(y.hat, y)),
+       wauc,
+       WeightedAUC(WeightedROC(y.hat, y, rep(1, length(y))))))
+   
+ }
Loading required package: glmnet
Loading required package: Matrix
Loading required package: foreach
Loaded glmnet 2.0-16

                         missing.weights unequal.weights equal.weights
glmnet::auc                          0.5           0.300     0.3333333
WeightedROC::WeightedAUC             0.5           0.325     0.5000000
> 
> ## For the un-weighted ROCR example data set, verify that our AUC is
> ## the same as that of ROCR/pROC/glmnet. Note that glmnet::auc is
> ## faster than WeightedROC::WeightedAUC because glmnet::auc it does
> ## not include the overhead of computing a data.frame(TPR, FPR) that
> ## could be plotted.
> if(require(microbenchmark) && require(ROCR) && require(pROC)){
+   data(ROCR.simple, envir=environment())
+   microbenchmark(WeightedROC={
+     tp.fp <- with(ROCR.simple, WeightedROC(predictions, labels))
+     wroc <- WeightedAUC(tp.fp)
+   }, ROCR={
+     pred <- with(ROCR.simple, prediction(predictions, labels))
+     rocr <- performance(pred, "auc")@y.values[[1]]
+   }, pROC={
+     proc <- pROC::auc(labels ~ predictions, ROCR.simple, algorithm=2)
+   }, glmnet={
+     gnet <- with(ROCR.simple, {
+       glmnet::auc(labels, predictions, rep(1, length(labels)))
+     })
+   }, times=10)
+   rbind(WeightedROC=wroc, ROCR=rocr, pROC=proc, glmnet=gnet) #same
+ }
Loading required package: microbenchmark
Loading required package: ROCR
Loading required package: gplots

Attaching package: ‘gplots’

The following object is masked from ‘package:stats’:

    lowess

Loading required package: pROC
Warning in library(package, lib.loc = lib.loc, character.only = TRUE, logical.return = TRUE,  :
  there is no package called ‘pROC’
> 
> ## For the un-weighted pROC example data set, verify that our AUC is
> ## the same as that of ROCR/pROC/glmnet. 
> data(aSAH, envir=environment())
Warning in data(aSAH, envir = environment()) :
  data set ‘aSAH’ not found
> table(aSAH$s100b)
Error in table(aSAH$s100b) : object 'aSAH' not found
Execution halted