Lähdekoodi sivulle OpasnetUtils/Summary

[[op_en:OpasnetUtils/Summary]]
[[Category:Opasnet]]
[[Category:R tools]]
[[Category:OpasnetUtils]]
[[Luokka:Sisältää R-koodia]]
{{method|moderator=|stub=Yes}}
:''Tämä sivu on vain tilapäinen kirjanmerkki koodin inkludeeraamiseksi. Kunhan funktio summary kypsyy ja sisällytetään OpasnetUtils-pakettiin, tämän sivun voi tyhjentää.

==Description==

Summary defines how summaries of [[OpasnetUtils/Ovariable|ovariables]] are shown. 

==Code==

'''Code name: summary

<rcode name="summary">

# SETMETHOD summary ################### Summary defines how summaries of ovariables are shown.
setMethod(
	f = "summary", 
	signature = signature(object = "ovariable"), 
	definition = function(object, ...) {
		test <- paste(object@name, "Result", sep = "") %in% colnames(object@output)
		rescol <- ifelse(test, paste(object@name, "Result", sep = ""), "Result")
		object@output <- object@output[ , -grep("Description|Source", colnames(object@output))]
		if("Iter" %in% colnames(object@output)) {
			object@output <- object@output[object@output$Iter == 1, ]
		}
		if(nrow(object@output) > 200) {
			object@output <- object@output[1:200, ]
		}
		print(xtable(object@output), type = 'html', html.table.attributes = "class='sortable'")
# Kehityskohteita:
## Lasketaan mean, median, min, max, 95%CI, SD resultista selittävien sarakkeiden suhteen.
	}
)

</rcode>

==See also==

* [[OpasnetUtilsExt]]
* [[OpasnetBaseUtils]]
* [[Object-oriented programming in Opasnet]]
* [[Opasnet (R library)]]