Mercurial > repos > mvdbeek > docker_toolfactory
annotate 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 |
rev | line source |
---|---|
0
0fa46413d0d9
planemo upload for repository https://bitbucket.org/mvdbeek/dockertoolfactory/ commit 2f33eb59c06ac3d6ba6e22622fd4ae729eb5e4da-dirty
mvdbeek
parents:
diff
changeset
|
1 for (i in 1:10) { |
0fa46413d0d9
planemo upload for repository https://bitbucket.org/mvdbeek/dockertoolfactory/ commit 2f33eb59c06ac3d6ba6e22622fd4ae729eb5e4da-dirty
mvdbeek
parents:
diff
changeset
|
2 foo = runif(100) |
0fa46413d0d9
planemo upload for repository https://bitbucket.org/mvdbeek/dockertoolfactory/ commit 2f33eb59c06ac3d6ba6e22622fd4ae729eb5e4da-dirty
mvdbeek
parents:
diff
changeset
|
3 bar = rnorm(100) |
0fa46413d0d9
planemo upload for repository https://bitbucket.org/mvdbeek/dockertoolfactory/ commit 2f33eb59c06ac3d6ba6e22622fd4ae729eb5e4da-dirty
mvdbeek
parents:
diff
changeset
|
4 bar = foo + 0.05*bar |
0fa46413d0d9
planemo upload for repository https://bitbucket.org/mvdbeek/dockertoolfactory/ commit 2f33eb59c06ac3d6ba6e22622fd4ae729eb5e4da-dirty
mvdbeek
parents:
diff
changeset
|
5 pdf(paste('yet',i,"anotherplot.pdf",sep='_')) |
0fa46413d0d9
planemo upload for repository https://bitbucket.org/mvdbeek/dockertoolfactory/ commit 2f33eb59c06ac3d6ba6e22622fd4ae729eb5e4da-dirty
mvdbeek
parents:
diff
changeset
|
6 plot(foo,bar,main=paste("Foo by Bar plot #",i),col="maroon", pch=3,cex=0.6) |
0fa46413d0d9
planemo upload for repository https://bitbucket.org/mvdbeek/dockertoolfactory/ commit 2f33eb59c06ac3d6ba6e22622fd4ae729eb5e4da-dirty
mvdbeek
parents:
diff
changeset
|
7 dev.off() |
0fa46413d0d9
planemo upload for repository https://bitbucket.org/mvdbeek/dockertoolfactory/ commit 2f33eb59c06ac3d6ba6e22622fd4ae729eb5e4da-dirty
mvdbeek
parents:
diff
changeset
|
8 foo = data.frame(a=runif(100),b=runif(100),c=runif(100),d=runif(100),e=runif(100),f=runif(100)) |
0fa46413d0d9
planemo upload for repository https://bitbucket.org/mvdbeek/dockertoolfactory/ commit 2f33eb59c06ac3d6ba6e22622fd4ae729eb5e4da-dirty
mvdbeek
parents:
diff
changeset
|
9 bar = as.matrix(foo) |
0fa46413d0d9
planemo upload for repository https://bitbucket.org/mvdbeek/dockertoolfactory/ commit 2f33eb59c06ac3d6ba6e22622fd4ae729eb5e4da-dirty
mvdbeek
parents:
diff
changeset
|
10 pdf(paste('yet',i,"anotherheatmap.pdf",sep='_')) |
0fa46413d0d9
planemo upload for repository https://bitbucket.org/mvdbeek/dockertoolfactory/ commit 2f33eb59c06ac3d6ba6e22622fd4ae729eb5e4da-dirty
mvdbeek
parents:
diff
changeset
|
11 heatmap(bar,main='Random Heatmap') |
0fa46413d0d9
planemo upload for repository https://bitbucket.org/mvdbeek/dockertoolfactory/ commit 2f33eb59c06ac3d6ba6e22622fd4ae729eb5e4da-dirty
mvdbeek
parents:
diff
changeset
|
12 dev.off() |
0fa46413d0d9
planemo upload for repository https://bitbucket.org/mvdbeek/dockertoolfactory/ commit 2f33eb59c06ac3d6ba6e22622fd4ae729eb5e4da-dirty
mvdbeek
parents:
diff
changeset
|
13 } |