Name:Unknown
Clan:Unknown
Member Since:Oct 2019
Last Seen:Nov 2019
Profiles:
Following:1
Followers:1
Allies:1
x <- c(52,73,55,26,72,45,80) y <- var(x)c(52,73,55,26,72,45,80,62,NA,7,NA,87,54,46,85,37,94)- x <- c(52,73,55,26,72,45,80)
- y <- var(x)
print(x) print(y)test_that("Variance", {expect_equal(round(var(c(52,73,55,26,72,45,80,62,NA,7,NA,87,54,46,85,37,94),na.rm=T),4),round(587.5238,4))})- print(x)
- print(y)