Mercurial > repos > melpetera > corr_table
comparison CorrTable/Corr_wrap.r @ 2:2173ad5e7750 draft default tip
Uploaded
author | melpetera |
---|---|
date | Wed, 16 Oct 2019 03:12:55 -0400 |
parents | 29ec7e3afdd4 |
children |
comparison
equal
deleted
inserted
replaced
1:29ec7e3afdd4 | 2:2173ad5e7750 |
---|---|
31 | 31 |
32 | 32 |
33 if(length(args) < 10){ stop("NOT enough argument !!!") } | 33 if(length(args) < 10){ stop("NOT enough argument !!!") } |
34 | 34 |
35 | 35 |
36 cat('\n--------------------------------------------------------------------', | 36 cat('\nJob starting time:\n',format(Sys.time(), "%a %d %b %Y %X"), |
37 '\n\n--------------------------------------------------------------------', | |
37 '\nParameters used in "Between-table Correlation":\n\n') | 38 '\nParameters used in "Between-table Correlation":\n\n') |
38 print(args) | 39 print(args) |
39 cat('--------------------------------------------------------------------\n\n') | 40 cat('--------------------------------------------------------------------\n\n') |
40 | 41 |
41 | 42 |
74 | 75 |
75 | 76 |
76 cat('\n--------------------------------------------------------------------', | 77 cat('\n--------------------------------------------------------------------', |
77 '\nInformation about R (version, Operating System, attached or loaded packages):\n\n') | 78 '\nInformation about R (version, Operating System, attached or loaded packages):\n\n') |
78 sessionInfo() | 79 sessionInfo() |
79 cat('--------------------------------------------------------------------\n\n') | 80 cat('--------------------------------------------------------------------\n', |
81 '\nJob ending time:\n',format(Sys.time(), "%a %d %b %Y %X")) | |
80 | 82 |
81 | 83 |
82 #delete the parameters to avoid the passage to the next tool in .RData image | 84 #delete the parameters to avoid the passage to the next tool in .RData image |
83 rm(args) | 85 rm(args) |