
library(testthat)

source("user_code.R")
library(testthat)

source("user_code.R")
test_that("function returns a list with correct element names", {
  profile <- create_student_profile("Alex", 20, c(88, 92, 79), TRUE)
  expect_true(is.list(profile))
  expect_setequal(names(profile), c("name", "age", "grades", "passed"))
})

test_that("grades element is a numeric vector and matches input", {
  grades_input <- c(88, 92, 79)
  profile <- create_student_profile("Alex", 20, grades_input, TRUE)
  expect_true(is.numeric(profile$grades))
  expect_equal(profile$grades, grades_input)
})

test_that("passed element is logical and matches input", {
  profile <- create_student_profile("Alex", 20, c(88, 92, 79), TRUE)
  expect_true(is.logical(profile$passed))
  expect_equal(profile$passed, TRUE)
})

test_that("printing grades and passed outputs correct values", {
  out <- capture.output(main())
  expect_true(any(grepl("88 92 79", out)))
  expect_true(any(grepl("TRUE", out)))
})

test_main.R

Master the essential data structures in R, including lists, data frames, and factors. Learn how to create, manipulate, and analyze data using R's powerful tools, with engaging explanations and real-world challenges designed for beginners.

Explore the fundamentals of lists in R, including how to create, access, and manipulate both simple and nested lists. Learn the differences between lists and data frames, and discover practical uses for each.

Master the creation and manipulation of data frames in R, including adding, removing, and modifying columns and rows, as well as filtering and sorting data for analysis.

Discover how to use factors in R to handle categorical data, including setting levels, ordering, and avoiding common mistakes.

Challenge: Create and Access Lists

解答