> invisible(options(echo = TRUE))
> a <- "me is good";
> write.table(a, file="/mnt/alumni/89/b89x035/htdocs/miyano_cancer/temp/megood.txt");
> proc.time()
[1] 1.26 0.05 1.36 0.00 0.00
>