Nothing
.condE <- function(x, D1, fct, ...){
FUN <- function(x, D1, fct, ...){
return(E(D1, fct, cond = x, withCond = TRUE, ...))
}
return(apply(matrix(x, ncol = dimension(Range(cond(D1)))), 1, FUN, D1 = D1, fct = fct, ...))
}
setMethod("E", signature(object = "L2RegTypeFamily",
fun = "EuclRandVariable",
cond = "missing"),
function(object, fun){
# fct <- function(x, cond, f1){ f1(cbind(t(cond),x)) }
res <- numeric(length(fun))
for(i in 1:length(fun)){
fct <- function(x,cond) fun@Map[[i]](cbind(t(cond),x))
res[i] <- E(object@RegDistr, .condE, D1 = object@distribution,
fct = fct)
}
return(res)
})
setMethod("E", signature(object = "L2RegTypeFamily",
fun = "EuclRandMatrix",
cond = "missing"),
function(object, fun){
matrix(E(object, as(fun, "EuclRandVariable")), nrow = nrow(fun))
})
setMethod("E", signature(object = "L2RegTypeFamily",
fun = "EuclRandVarList",
cond = "missing"),
function(object, fun){
nrvalues <- length(fun)
res <- vector("list", nrvalues)
for(i in 1:nrvalues) res[[i]] <- E(object, fun[[i]])
return(res)
})
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.