Nothing
## we have to make sure it's all evaluationResults
setAs("list", "evaluationResultList",
function(from) {
if(!all(sapply(from, is, "evaluationResults"))) stop("List can only contain evaluationResults!")
new("evaluationResultList", from)
})
setMethod("show", signature(object = "evaluationResultList"),
function(object) {
writeLines(sprintf("List of evaluation results for %d recommenders:\n",
length(object)))
print(unclass(object))
invisible(NULL)
})
## avg
setMethod("avg", signature(x = "evaluationResultList"),
function(x, trim = 0, na.rm = FALSE, ...) {
lapply(x, avg)
})
setMethod("[", signature(x = "evaluationResultList", i = "ANY", j = "missing",
drop = "missing"),
function(x, i, j, ..., drop) {
l <- as(as(x, "list")[i], "evaluationResultList")
names(l) <- names(x)[i]
l
})
## work out of the box: names, [[
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.