typo

Author: RobinHankin

tests/testthat/test_phi.R

@@ -6,10 +6,8 @@ test_that("phi() behaves as it should", {
     expect_true(as.function(phi(3))(as.matrix(e(4,5))) == 0)
 
     v <- sample(9)
-    expect_true(phi(v) == Reduce(`%X%`,sapply(v,phi))
+    expect_true(phi(v) == Reduce(`%X%`,sapply(v,phi)))
 
 
 
 })
-
-