Ero sivun ”OpasnetUtils/Aggregate” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(toimiva luonnos)
 
(→‎Vastaus: parametri over)
Rivi 13: Rivi 13:
f = "aggregate",
f = "aggregate",
signature = signature(x = "ovariable"),
signature = signature(x = "ovariable"),
definition = function(x, rescol = character(), by = x@output[x@marginal], FUN = sum, ...) {
definition = function(x, rescol = character(), over = character(), FUN = sum, ...) {
v = FALSE
v = FALSE
if (exists("verbose") && verbose) v = TRUE # Global verbose definition
if (exists("verbose") && verbose) v = TRUE # Global verbose definition
Rivi 24: Rivi 24:
)
)
}
}
temp <- callGeneric(x@output[rescol], by = by, FUN = FUN, ...)
temp3 <- x@output[x@marginal & ! colnames(x@output) %in% over]
temp <- callGeneric(x@output[rescol], by = temp3, FUN = FUN, ...)
temp2 <- colnames(temp) %in% colnames(x@output)[x@marginal]
temp2 <- colnames(temp) %in% colnames(x@output)[x@marginal]
x@output <- temp
x@output <- temp

Versio 13. huhtikuuta 2013 kello 11.55


Kysymys

Miten aggregoidaan ovariable halutuille indekseille?

Vastaus

+ Näytä koodi