matiskay · April 19, 2014 00:14
diff --git a/sd_testing.r b/sd_testing.r
 library('testthat');

 test_that('The Standard Desviation of n numbers', {
  x <- c(1, 2, 3, 4, 5, 6, 7, 8);
  sd <- sd(x);
  
  expect_that(sd, equals(2.449490))
 });
	library('testthat');

	test_that('The Standard Desviation of n numbers', {
	x <- c(1, 2, 3, 4, 5, 6, 7, 8);
	sd <- sd(x);

	expect_that(sd, equals(2.449490))
	});