Slide 7
Slide 7 text
ؔ ର ྫ
expect_equal() ฏੑ expect_equal(letters[1:3], c(“a", "b", “c”))
expect_setequal(letters[1:3],c("a", "c", "b"))
expect_gt() େখؔ
expect_gt(pi, 3.1)
expect_gte(pi, 3.14)
expect_lt(pi, 3.2)
expect_true() ਅِ expect_true(iris$Species[1] == "setosa")
expect_length() ͞ expect_length(unique(iris$Species), 3)