
library(testthat)

source("user_code.R")
test_that("satisfaction_factor is a factor", {
  expect_true(exists("satisfaction_factor"), info = "The variable 'satisfaction_factor' does not exist.")
  expect_true(is.factor(satisfaction_factor), info = "'satisfaction_factor' is not a factor.")
})

test_that("satisfaction_factor has correct levels and order", {
  expect_true(all(levels(satisfaction_factor) == c("Dissatisfied", "Neutral", "Satisfied")), 
              info = "Levels are not set as 'Dissatisfied', 'Neutral', 'Satisfied' in that order.")
})

test_that("satisfaction_factor is ordered", {
  expect_true(is.ordered(satisfaction_factor), info = "'satisfaction_factor' is not an ordered factor.")
})

test_that("structure_info contains structure output", {
  expect_true(exists("structure_info"), info = "The variable 'structure_info' does not exist.")
})

test_main.R

Focus on practical skills for cleaning and transforming tabular data in R using data frames. Learn to create, modify, filter, and sort data for analysis, with hands-on challenges to reinforce each concept.

Challenge: Create and Use Factors

Lösung

Challenge: Create and Use Factors

Lösung