User:Teemu R: Difference between revisions

From Opasnet
Jump to navigation Jump to search
Line 7: Line 7:
>
>
library(OpasnetUtils)
library(OpasnetUtils)
#system.time(a <- opbase.data("Op_en5797"))
a <- opbase.data("Op_en4713")
a <- opbase.data("Op_en4713")
#system.time(a <- opbase.data("Op_en4713", optim_test = FALSE))





Revision as of 10:12, 6 March 2013

Teemu Rintala

THL

R code test

- Hide code

library(OpasnetUtils)
a <- opbase.data("Op_en4713")



a <- Ovariable("a", a)
a <- EvalOutput(a)
a <- CheckMarginals(a)
print(xtable(summary(a)), type = "html")