User:Teemu R: Difference between revisions
Jump to navigation
Jump to search
No edit summary |
|||
| Line 8: | Line 8: | ||
library(OpasnetUtils) | library(OpasnetUtils) | ||
#system.time(a <- opbase.data("Op_en5797")) | #system.time(a <- opbase.data("Op_en5797")) | ||
a <- opbase.data("Op_en4713") | |||
#system.time(a <- opbase.data("Op_en4713", optim_test = FALSE)) | #system.time(a <- opbase.data("Op_en4713", optim_test = FALSE)) | ||
Revision as of 10:12, 6 March 2013
Teemu Rintala
THL
R code test
library(OpasnetUtils)
#system.time(a <- opbase.data("Op_en5797"))
a <- opbase.data("Op_en4713")
#system.time(a <- opbase.data("Op_en4713", optim_test = FALSE))
a <- Ovariable("a", a)
a <- EvalOutput(a)
a <- CheckMarginals(a)
print(xtable(summary(a)), type = "html")
|