R/textimage.r

Defines functions textimage

textimage <- function(m,...)
{
	image(c(1:nrow(m)),c(1:ncol(m)),m,...)
	for(c in 1:ncol(m))
	{
		for(r in 1:nrow(m))
		{
			text(r,c,round(m[r,c],2))
		}
	}
}

Try the SCiAn package in your browser

Any scripts or data that you put into this service are public.

SCiAn documentation built on May 2, 2019, 5:24 p.m.