diff test-data/html_output/My_dynamic_script.Rscript @ 0:0fa46413d0d9 draft

planemo upload for repository https://bitbucket.org/mvdbeek/dockertoolfactory/ commit 2f33eb59c06ac3d6ba6e22622fd4ae729eb5e4da-dirty
author mvdbeek
date Sat, 03 Oct 2015 08:34:39 -0400
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test-data/html_output/My_dynamic_script.Rscript	Sat Oct 03 08:34:39 2015 -0400
@@ -0,0 +1,13 @@
+for (i in 1:10) {
+   foo = runif(100)
+   bar = rnorm(100)
+   bar = foo + 0.05*bar
+   pdf(paste('yet',i,"anotherplot.pdf",sep='_'))
+   plot(foo,bar,main=paste("Foo by Bar plot #",i),col="maroon", pch=3,cex=0.6)
+   dev.off()
+   foo = data.frame(a=runif(100),b=runif(100),c=runif(100),d=runif(100),e=runif(100),f=runif(100))
+   bar = as.matrix(foo)
+   pdf(paste('yet',i,"anotherheatmap.pdf",sep='_'))
+   heatmap(bar,main='Random Heatmap')
+   dev.off()
+}
\ No newline at end of file