Mercurial > repos > stef > r_test

annotate R_test.R @ 0:8a7ee199a315 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author stef
date Tue, 28 Oct 2014 06:25:06 -0400
parents
children 51e37d436e76
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
8a7ee199a315 Uploaded
stef
parents:
diff changeset
1 systemUser <- system("whoami",T)
8a7ee199a315 Uploaded
stef
parents:
diff changeset
2 rVersion <- R.version.string
8a7ee199a315 Uploaded
stef
parents:
diff changeset
3
8a7ee199a315 Uploaded
stef
parents:
diff changeset
4 cat( "Starting R_test\n" )
8a7ee199a315 Uploaded
stef
parents:
diff changeset
5 cat( rVersion, "\n" )
8a7ee199a315 Uploaded
stef
parents:
diff changeset
6 cat( systemUser, "\n" )
8a7ee199a315 Uploaded
stef
parents:
diff changeset
7
8a7ee199a315 Uploaded
stef
parents:
diff changeset
8 #qdnaseqVersion <- packageDescription( "QDNAseq" )$Version
8a7ee199a315 Uploaded
stef
parents:
diff changeset
9
8a7ee199a315 Uploaded
stef
parents:
diff changeset
10 packs <- c()
8a7ee199a315 Uploaded
stef
parents:
diff changeset
11 for ( pack in packs ){
8a7ee199a315 Uploaded
stef
parents:
diff changeset
12 catMsg( c("Loading ", pack) )
8a7ee199a315 Uploaded
stef
parents:
diff changeset
13 library( pack )
8a7ee199a315 Uploaded
stef
parents:
diff changeset
14 }
8a7ee199a315 Uploaded
stef
parents:
diff changeset
15
8a7ee199a315 Uploaded
stef
parents:
diff changeset
16 q(status=0)