OpasnetUtils/Aggregate

Tämä sivu on tietokide alatyypiltään metodi. Sivutunniste: Op_fi3804
Moderaattori:Ei ole (katso kaikki) Kuinka ryhtyä moderaattoriksi? Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi3804}}

Kysymys

Miten aggregoidaan ovariable halutuille indekseille?

Vastaus

+ Näytä koodi- Piilota koodi 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) } )