diff --git a/dokumentation/evolution1d/R_analysis.r b/dokumentation/evolution1d/R_analysis.r
new file mode 100644
index 0000000..a5b36c7
--- /dev/null
+++ b/dokumentation/evolution1d/R_analysis.r
@@ -0,0 +1,9 @@
+library(Hmisc)
+DF=read.table("potential_lambda05_fitness_R_gia2_ffd_im_mid_25.txt",header=TRUE,skip=1, sep="")
+head(DF)
+rcorr(as.matrix(DF),type="spearman")
+
+DF=read.table("potential_lambda075_fitness_R_gia2_ffd_im_mid_25.txt",header=TRUE,skip=1, sep="")
+head(DF)
+rcorr(as.matrix(DF),type="spearman")
+