Displaying 1 result from an estimated 1 matches for "toprint".
Did you mean:
noprint
2005 Oct 10
1
decreasing performance of for() loop
...eration 6000, 10:10:17
98%, iteration 196000, 10:24:04
99%, iteration 198000, 10:24:24
100%, iteration 200000, 10:24:38
Is there something that can be done about this? Would such a loop run
faster in C/C++/Fortran?
Thank you,
b.
#---sample code
loop.progress <- function(loop,iterations,steps,toprint=NULL)
{
marks <- c(1,floor(iterations/steps)*(1:steps))
if (loop %in% marks) {
if (is.null(toprint)) prt <- loop else prt <- toprint
cat(paste(round((which(marks == loop)-1)*(100/steps),0),"%, iteration ",
prt,", ",format(Sys.time(),"%H:%M:%S"),sep="&...