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

Nykyinen versio 22. elokuuta 2013 kello 13.10

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]
		temp <- callGeneric(x@output["Result"], by = temp3, FUN = FUN, ...)
		temp2 <- colnames(temp) %in% colnames(x@output)[x@marginal]
		x@output <- temp
		x@marginal <- temp2
		return(x)
	}
)

@@ Rivi 2: / Rivi 2: @@
 [[Luokka:OpasnetUtils]]
 [[op_en:OpasnetUtils/Aggregate]]
+[[Luokka:Sisältää R-koodia]]
 ==Kysymys==
@@ Rivi 24: / Rivi 25: @@
 			)
 		}
+		colnames(x@output)[colnames(x@output) == rescol] <- "Result"
 		temp3 <- x@output[x@marginal & ! colnames(x@output) %in% over]
-		temp <- callGeneric(x@output[rescol], by = temp3, FUN = FUN, ...)
+		temp <- callGeneric(x@output["Result"], by = temp3, FUN = FUN, ...)
 		temp2 <- colnames(temp) %in% colnames(x@output)[x@marginal]
 		x@output <- temp

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

Nykyinen versio 22. elokuuta 2013 kello 13.10

Kysymys

Vastaus

Navigointivalikko