"heatmap" = function(temp)
{
	image(list(x = 1:dim(temp)[1], y = 1:dim(temp)[2], z = as.matrix((temp))), axes = FALSE)
	image.legend(as.matrix((temp)), x = nrow(temp) * 1.075, y = ncol(temp) * 1.05, size = c(0.125, 6.1), hor = F, cex = 0.66, tck = -0.01, mgp = c(0, 0.5, 0))
	invisible()
}