tests/testthat/test_meanvarsd.r

In merc534/STAT3701-HW3: MercurioRyanTools Package for STAT 3701

context("meanvarsd")
test_that("is returned as a simple vector",{
  
  
  meanvarsd(data1)
  
  mean <- sum (data1$x * data1$p)
  
  var = sum (((data1$x-mean)^2)* data1$p)
  
  sd <- sqrt(var)
  
  expect_equivalent(c(mean,var,sd), meanvarsd(data1))
  
  
})