- #For border values, just apply a "by-hand" mean
- expect_equal(fM[1,], colMeans(rbind(M[1,],M[2,],M[100,])))
- expect_equal(fM[100,], colMeans(rbind(M[100,],M[99,],M[1,])))
-}
+ #Border values should be unchanged
+ expect_equal(fM[1,], M[1,])
+ expect_equal(fM[100,], M[100,])
+})