kono
/
refo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add updated R script

This commit is contained in:
Jan Löwenstrom 2020-03-27 17:09:03 +01:00
parent eca0d8db4d
commit 28c40c58dd
2 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
epsilonValues.R
View File

@ -1,8 +1,11 @@
# Libraries # Libraries
library(ggplot2) library(ggplot2)
library(matrixStats) library(matrixStats)
library(MASS)
library(reshape2)
library(reshape)
# file.choose() # file.choose()
convergence <- read.csv(file.choose(), header=FALSE, row.names=1) convergence <- read.csv(file.choose(), header=FALSE, row.names=1, skip=1)
sds <- rowSds(sapply(convergence[,-1], `length<-`, max(lengths(convergence[,-1]))), na.rm=TRUE) sds <- rowSds(sapply(convergence[,-1], `length<-`, max(lengths(convergence[,-1]))), na.rm=TRUE)
men <- rowMeans(sapply(convergence[,-1], `length<-`, max(lengths(convergence[,-1]))), na.rm=TRUE) men <- rowMeans(sapply(convergence[,-1], `length<-`, max(lengths(convergence[,-1]))), na.rm=TRUE)
@ -14,13 +17,19 @@ data <- data.frame(
means=men, means=men,
sds=sds sds=sds
) )
print(length(men))
convergence$group <- row.names(convergence)
convergence.m <- melt(convergence, id.vars = "group")
ggplot(data, aes(x=men, y=sds)) +
geom_boxplot()
ggplot(data) + ggplot(data) +
geom_bar(aes(x=names, y=means), stat="identity", fill="skyblue", alpha=0.7) + geom_bar(aes(x=names, y=means, fill=means), stat="identity", color="black", alpha=0.8) +
geom_errorbar( aes(x=names, ymin=means-sds, ymax=means+sds), width=0.4, colour="orange", alpha=0.9, size=1.3) + geom_errorbar( aes(x=names, ymin=means, ymax=means+sds), width=0.4, colour="black", alpha=0.8, size=0.6) +
geom_text(aes(label=as.integer(means), x =names, y=means), position=position_dodge(width=0.9), vjust=-0.25) + #geom_text(aes(label=as.integer(means), x =names, y=means), position=position_dodge(width=0.9), vjust=-0.25) +
xlab("Epsilon") + ylab("avg. amount of episodes until convergence") xlab("Epsilon") + ylab("avg. amount of episodes until convergence")
ba <- barplot(names=rownames(convergence), height=men, ylim=c(0, max(men)*1.2), ylab = "avg. episodes until convergence", xlab = "epsilon value") #ba <- barplot(names=rownames(convergence), height=men, ylim=c(0, max(men)*1.2), ylab = "avg. episodes until convergence", xlab = "epsilon value")
text(x = ba, y = men, label = as.integer(men), pos = 3, cex = 0.8, col = "red") #text(x = ba, y = men, label = as.integer(men), pos = 3, cex = 0.8, col = "red")

2
src/main/java/example/DinoSampling.java
View File

@ -16,7 +16,7 @@ import java.nio.file.StandardOpenOption;
public class DinoSampling { public class DinoSampling {
public static final float f =0.05f; public static final float f =0.05f;
public static final String FILE_NAME = "converge.txt"; public static final String FILE_NAME = "convergenceAdvancedMCnegRew.txt";
public static void main(String[] args) { public static void main(String[] args) {
File file = new File(FILE_NAME); File file = new File(FILE_NAME);
try { try {