Teemu Rintala
THL
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)
|
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")
|