update rlm test

Author: amcdavid

tests/testthat/test-rlm.R

@@ -13,14 +13,17 @@ test_that("fast_rlm", {
   system.time(r1 <- MASS::rlm(x, y))
   system.time(r2 <- fast_rlm(x, y))
   # r2$coefficients is unnamed
-  expect_equal(r1$coefficients, r2$coefficients, check.attributes = FALSE)
-  
-  #del unrelevant parameters before comparison
-  r1 = r1[names(r2)]
-  expect_equivalent(r1, r2)
-  # library(ggplot2)
-  # ggplot(df, aes(x,y)) +geom_point() + geom_abline(slope = r1$coefficients)
-  # plot(y~x, data = data.frame(x, y)) + abline(r1)
+  expect_equivalent(r1$coefficients, r2$coefficients)
+  sel = c("coefficients"
+          , "residuals"
+          , "fitted.values"
+          , "weights"
+          , "rank"
+          , "converged"
+          , "wresid"
+          , "w" ,"x", "s"
+  )
+  expect_equivalent(r1[sel], r2[sel])
 
 
   })