library(OpasnetUtils) library(ggplot2) # cat("Valmistellaan laskentaa.\n") objects.latest("Op_fi2806","alustus") #ls() #oprint(läpipääsykerroin) #oprint(päästökerroin) temp <- EvalOutput(MetMalMurskPol) cat(paste("Pölypäästöt (kg/d) prosessista, kun prosessoidaan ", M * A, " tonnia päivässä.\n", sep="")) # oprint(temp) # oprint(as.data.frame(as.table(tapply(temp@output$MetMalMurskPolResult, temp@output[c("Hiukkaskoko", "Iter")], sum)))) out <- as.data.frame(as.table(tapply(temp@output$MetMalMurskPolResult, temp@output[c("Hiukkaskoko", "Iter")], sum))) ggplot(out, aes(x = Hiukkaskoko, y = Freq)) + geom_boxplot() + theme_grey(base_size = 24) |