myMat <- matrix(c(1, 3 ,5, 4, 5, 6, 7, 9, 11), byrow=FALSE, nrow=3)
removeColumnsByFunc(myMat, removeFunc=function(x) any(x %% 2 == 0))
#> [,1] [,2]
#> [1,] 1 7
#> [2,] 3 9
#> [3,] 5 11
removeRowsByFunc(myMat, removeFunc=function(x) any(x %% 2 == 0))
#> [,1] [,2] [,3]
#> [1,] 3 5 9