User:Teemu R: Difference between revisions

From Opasnet
Jump to navigation Jump to search
No edit summary
No edit summary
 
(14 intermediate revisions by the same user not shown)
Line 3: Line 3:
THL
THL
==R code test==
==R code test==
<rcode
<rcode graphics=1>
showcode = "1"
>
library(OpasnetUtils)
library(OpasnetUtils)
#system.time(a <- opbase.data("Op_en5797"))
library(ggplot2)
system.time(a <- opbase.data("Op_en4713"))
test <- data.frame(a=1:4, b = letters[1:4])
#system.time(a <- opbase.data("Op_en4713", optim_test = FALSE))
oprint(test)
 
ggplot(test, aes(x = b, y = a, fill= b)) + geom_bar(stat = "identity")
cat("asdasadadd\n")
test <- runif(1e7)
objects.store(test)
qplot(test)
</rcode>
<rcode embed=1 name="embedded" label="embed run" graphics=1>
library(OpasnetUtils)
library(ggplot2)
test <- data.frame(a=1:4, b = letters[1:4])
oprint(test)
ggplot(test, aes(x = b, y = a, fill= b)) + geom_bar(stat = "identity")
cat("asdasadadd\n")
</rcode>
aaaaa
== T2B test ==
<t2b index="Year,Country" unit="#" obs="Mortality" desc="Description,Additional information">
2001|Finland|1000|data description|
2002|Finland|100||
2001|Sweden|600||Some additional stuffs
2002|Sweden|800||
</t2b>


 
== Test edit ==
a <- Ovariable("a", a)
https://github.com
a <- EvalOutput(a)
https://www.facebook.com
a <- CheckMarginals(a)
print(xtable(summary(a)), type = "html")
</rcode>

Latest revision as of 08:30, 1 December 2017

Teemu Rintala

THL

R code test

+ Show code

+ Show code

aaaaa

T2B test

User:Teemu R(#)
ObsYearCountryMortalityDescriptionAdditional information
12001Finland1000data description
22002Finland100
32001Sweden600Some additional stuffs
42002Sweden800

Test edit

https://github.com https://www.facebook.com