tests/testthat/test-plotPoints.R

In ProjectMOSAIC/mosaic: Project MOSAIC Statistics and Mathematics Teaching Utilities

# context("plotPoints()")
require(mosaicData)
testthat::test_that("plotPoints works", {
  
  wrapped_expect_doppelganger("plotPoints1", plotPoints( width ~ length, data=KidsFeet, groups=sex, pch=20))
  
  f <- makeFun( lm( width ~ length * sex, data=KidsFeet))
  wrapped_expect_doppelganger("plotPoints2", plotFun( f(length=length,sex="G")~length, add=TRUE, col="pink"))
  wrapped_expect_doppelganger("plotPoints3", plotFun( f(length=length,sex="B")~length, add=TRUE))
  
})