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)