mat_rotate
mat_rotate.Rmd
library(saferMatrix)Datasets
mat1 <- matrix(c(1,1,1,2, 0,2,3,0, NA,3,0,0, 5,0,0,0), ncol = 4)
mat2 <- matrix(c(1,1,1,2, "a",2,3,NA, "a","a",0,0, "a","a","a",0), ncol = 4)
mat3 <- matrix(c(0,0,0,2, 0,0,3,0, 0,3,0,NA, 5,0,0,0), ncol = 4)
mat4 <- matrix(c(0,0,0,2, 0,0,3,0, 0,3,0,0, 5,0,0,0), ncol = 4)Datasets info
mat1
> [,1] [,2] [,3] [,4]
> [1,] 1 0 NA 5
> [2,] 1 2 3 0
> [3,] 1 3 0 0
> [4,] 2 0 0 0
mat2
> [,1] [,2] [,3] [,4]
> [1,] "1" "a" "a" "a"
> [2,] "1" "2" "a" "a"
> [3,] "1" "3" "0" "a"
> [4,] "2" NA "0" "0"
mat3
> [,1] [,2] [,3] [,4]
> [1,] 0 0 0 5
> [2,] 0 0 3 0
> [3,] 0 3 0 0
> [4,] 2 0 NA 0
mat4
> [,1] [,2] [,3] [,4]
> [1,] 0 0 0 5
> [2,] 0 0 3 0
> [3,] 0 3 0 0
> [4,] 2 0 0 0All the arguments
mat_rotate(data = mat1)
> [,1] [,2] [,3] [,4]
> [1,] 2 1 1 1
> [2,] 0 3 2 0
> [3,] 0 0 3 NA
> [4,] 0 0 0 5
mat_rotate(data = mat2)
> [,1] [,2] [,3] [,4]
> [1,] "2" "1" "1" "1"
> [2,] NA "3" "2" "a"
> [3,] "0" "0" "a" "a"
> [4,] "0" "a" "a" "a"
mat_rotate(data = mat3)
> [,1] [,2] [,3] [,4]
> [1,] 2 0 0 0
> [2,] 0 3 0 0
> [3,] NA 0 3 0
> [4,] 0 0 0 5
mat_rotate(data = mat4)
> [,1] [,2] [,3] [,4]
> [1,] 2 0 0 0
> [2,] 0 3 0 0
> [3,] 0 0 3 0
> [4,] 0 0 0 5