Displaying 1 result from an estimated 1 matches for "do_zelig".
2010 Feb 15
1
argh .. if/else .. why?
...####### if/else #2
cat(sprintf("Zelig for %d runs - timeR\n", RUNS))
} else
{
cat(sprintf("lme for %d runs - timeR\n", RUNS))
}
cat(date()," start - timeR\n")
for(i in 1:RUNS)
{
if (ZELIG) ##### if/else #3
do_Zelig()
else
do_lme()
cat(i, ' - ', date(),"\n")
}
cat(date()," end - timeR\n")
sink()