library("testthat") library("permute") context("Testing nobs() methods") test_that("numeric nobs method", { v <- runif(10) n <- nobs(v) expect_identical(n, 10L) }) test_that("integer nobs method", { v <- 1L:10L n <- nobs(v) expect_identical(n, 10L) }) test_that("matrix nobs method", { m <- matrix(1:9, nrow = 3) n <- nobs(m) expect_identical(n, 3L) }) test_that("data frame nobs method", { df <- as.data.frame(matrix(1:9, nrow = 3)) n <- nobs(df) expect_identical(n, 3L) }) test_that("factor nobs method", { f <- factor(c(1,2,3,2,1,4,5,2,1,4)) n <- nobs(f) expect_identical(n, 10L) }) test_that("character nobs method works", { ch <- c("Ar","Ba","Bl","Bu","Ca") n <- nobs(ch) expect_identical(n, 5L) expect_identical(n, length(ch)) })
Generated by dwww version 1.15 on Fri May 24 02:35:11 CEST 2024.