# NOT RUN {
# This test doesn't pass
# }
# NOT RUN {
x<-1:1e3
expect_mean_equal(x=x)
# }
# NOT RUN {
# This one passes, but shouldn't
x<-rnorm(1e3) + 0.01
expect_mean_equal(x=x)
x<-rnorm(1e3)
expect_mean_equal(x=x)
# check if 2 samples have the same mean
x<-rnorm(1e3, mean=10)
y<-rnorm(1e3, mean=10)
expect_mean_equal(x=x, y=y)
# }
Run the code above in your browser using DataLab