source.dir <- function(dir=".", pattern=".ssc$") {
  # source all files (with pattern pattern, defaults to all R files) in the the directory dir (default: current working directory)
  dir <- sub("/$", "", dir) # remove potential / at the end of the path
  sapply(paste(dir, dir(dir, pattern), sep="/"), source)
}
library(pROC)
aSAH <- aSAH
detach("pROC")
aSAH
source.dir()
source.dir()
traceback()
source.dir()
cov(roc1, roc2)
sapply(1:n, function(x) print(x))
sapply(1:n, function(j, m, X, Y) sapply(1:m, function(i, j, X, Y) roc.utils.MW.kernel(X[i], Y[j]), j=j, X=X, Y=Y), m=m, X=X, Y=Y)
sapply(1:n, function(j) {sapply(1:3, function(i) print(i))})
Q
q
source.dir()
cov(roc1, roc2)
cov(roc1, roc2)
source.dir()
cov(roc1, roc2)
traceback()
getFunction("var", where = "splus")
source.dir()
cov(roc1, roc2)
smooth(roc1)
source.dir()
cov(roc1, roc2)
source.dir()
cov(roc1, roc2)
cov.roc(roc1, roc2)
cov
rm(cov)
cov.roc(roc1, roc2)
traceback()
rm(var)
var
cov.roc(roc1, roc2)
traceback()
traceback()
cov.roc(roc1, roc2)
traceback()
source.dir()
cov.roc(roc1, roc2)
var
V1$Y
var(V1$Y)
cov
q
q()
source.dir()
cov(c(1, 2, 3), c(4, 5, 6)
)
cov.default
rm(cov.default)
cov(c(1, 2, 3), c(4, 5, 6))
