R/rotate.mat.R

Defines functions rotate.mat

Documented in rotate.mat

rotate.mat <-
function(mat){

	new.mat <- matrix(NA, nrow = dim(mat)[2], ncol = dim(mat)[1])
	#reverse each column i of the original
	#matrix and put it into row i in the
	#new matrix
	for(i in 1:dim(mat)[2]){
		new.mat[i,] <- rev(mat[,i])
		}
		rownames(new.mat) <- colnames(mat)
		colnames(new.mat) <- rownames(mat)
		return(new.mat)
	}

Try the cape package in your browser

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

cape documentation built on May 2, 2019, 3:27 a.m.