User:Teemu R: Difference between revisions
Jump to navigation
Jump to search
(placeholder) |
No edit summary |
||
| Line 2: | Line 2: | ||
THL | THL | ||
==R code test== | |||
<rcode | |||
showcode = "1" | |||
> | |||
library(OpasnetUtils) | |||
#system.time(a <- opbase.data("Op_en5797")) | |||
system.time(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") | |||
</rcode> | |||
Revision as of 10:11, 6 March 2013
Teemu Rintala
THL
R code test
library(OpasnetUtils)
#system.time(a <- opbase.data("Op_en5797"))
system.time(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")
|