R/pp.R

In nadiadavidson/goseq: Gene Ontology analyser for RNA-seq and other length biased data

#############################################################################
#Description: Prints progress through a loop
#Notes:
#Author: Matthew Young
#Date Modified: 29/11/2012

pp=function(total,count,i=i){
	if(missing(count)){count=evalq(i,envir=parent.frame())}
	if(missing(total)){total=evalq(stop,envir=parent.frame())}
	cat(round(100*(count/total)),"%   \r")
}