wholesale import of graphics given wide usage

[MichaelChirico]

e.g. dotchart, lines, abline here:

rethinking/R/coeftab.r

Lines 44 to 60 in 783d111

	dotchart( x , xlab=xlab , xlim=c(llim,rlim) , ... )
	for ( k in 1:nrow(x) ) {
	for ( m in 1:ncol(x) ) {
	if ( !is.na(left[k,m]) ) {
	# to compute y position:
	# coefs in groups by model
	# groups have nrow(x)+1 lines
	# empty line between each group
	kn <- nrow(x)
	ytop <- ncol(x)*(kn+2)-1
	ypos <- ytop - (m-1)*(kn+2) - (kn-k+1)
	lines( c(left[k,m],right[k,m]) , c(ypos,ypos) , lwd=2 , col=col.ci )
	}
	}
	}
	abline( v=0 , lty=1 , col=col.alpha("black",0.15) )