| Moderaattori:Ei ole (katso kaikki) Kuinka ryhtyä moderaattoriksi? Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review). |
| Lisää dataa
|
Miten aggregoidaan ovariable halutuille indekseille?
setMethod(
f = "aggregate",
signature = signature(x = "ovariable"),
definition = function(x, rescol = character(), over = character(), FUN = sum, ...) {
v = FALSE
if (exists("verbose") && verbose) v = TRUE # Global verbose definition
if (ncol(x@output) == 0) x <- EvalOutput(x, verbose = v)
if(length(rescol) == 0) {
rescol <- ifelse(
paste(x@name, "Result", sep = "") %in% colnames(x@output),
paste(x@name, "Result", sep = ""),
"Result"
)
}
colnames(x@output)[colnames(x@output) == rescol] <- "Result"
temp3 <- x@output[x@marginal & ! colnames(x@output) %in% over]
print(colnames(temp3))
temp <- callGeneric(x@output["Result"], by = temp3, FUN = FUN, ...)
temp2 <- colnames(temp) %in% colnames(x@output)[x@marginal]
print(temp2)
x@output <- temp
x@marginal <- temp2
return(x)
}
)
|