Ero sivun ”OpasnetUtils/Aggregate” versioiden välillä
Siirry navigaatioon
Siirry hakuun
(toimiva luonnos) |
pEi muokkausyhteenvetoa |
||
| (5 välissä olevaa versiota toisen käyttäjän tekemänä ei näytetä) | |||
| Rivi 2: | Rivi 2: | ||
[[Luokka:OpasnetUtils]] | [[Luokka:OpasnetUtils]] | ||
[[op_en:OpasnetUtils/Aggregate]] | [[op_en:OpasnetUtils/Aggregate]] | ||
[[Luokka:Sisältää R-koodia]] | |||
==Kysymys== | ==Kysymys== | ||
| Rivi 13: | Rivi 14: | ||
f = "aggregate", | f = "aggregate", | ||
signature = signature(x = "ovariable"), | signature = signature(x = "ovariable"), | ||
definition = function(x, rescol = character(), | 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 25: | ||
) | ) | ||
} | } | ||
temp <- callGeneric(x@output[ | colnames(x@output)[colnames(x@output) == rescol] <- "Result" | ||
temp3 <- x@output[x@marginal & ! colnames(x@output) %in% over] | |||
temp <- callGeneric(x@output["Result"], 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 | ||
Nykyinen versio 22. elokuuta 2013 kello 13.10
| Moderaattori:Ei ole (katso kaikki) Kuinka ryhtyä moderaattoriksi? Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review). |
| Lisää dataa
|
Kysymys
Miten aggregoidaan ovariable halutuille indekseille?