User:Teemu R: Difference between revisions

Revision as of 11:42, 20 June 2017

Teemu Rintala

THL

R code test

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")
test <- runif(1e7)
qplot(test)

+ Show code - Hide code

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")

aaaaa

@@ Line 1: / Line 1: @@
-[[File:SVG test file.svg]]
 Teemu Rintala
 THL
 ==R code test==
-{{resultlink}}
+<rcode graphics=1>
-<rcode
-name="api"
-showcode="1"
-live="0"
-variables="
-	name:test|type:text|default:test|
-	name:ident|type:hidden|default:'{{{1|Op_en{{PAGEID}}}}}'|
-	name:pagename|type:hidden|default:'{{PAGENAME}}'
-"
->
 library(OpasnetUtils)
-opbase.upload(data.frame(Uploader = wiki_username, Result = test), who = "Teemu R", name = pagename, ident = ident, subset = "APItest", act_type = "append")
+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")
+test <- runif(1e7)
+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

User:Teemu R: Difference between revisions

Revision as of 11:42, 20 June 2017

R code test

Navigation menu