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")
flush.console()
|
| Obs | Year | Country | Mortality | Description | Additional information |
|---|---|---|---|---|---|
| 1 | 2001 | Finland | 1000 | data description | |
| 2 | 2002 | Finland | 100 | ||
| 3 | 2001 | Sweden | 600 | Some additional stuffs | |
| 4 | 2002 | Sweden | 800 |
