
library(testthat)

source("user_code.R")
test_that("returns 'num1 is greater than num2' when first number is greater", {
  expect_equal(compare_numbers(10, 5), "10 is greater than 5")
  expect_equal(compare_numbers(-1, -3), "-1 is greater than -3")
})

test_that("returns 'num1 is less than num2' when first number is less", {
  expect_equal(compare_numbers(2, 8), "2 is less than 8")
  expect_equal(compare_numbers(-5, -2), "-5 is less than -2")
})

test_that("returns 'num1 is equal to num2' when numbers are equal", {
  expect_equal(compare_numbers(7, 7), "7 is equal to 7")
  expect_equal(compare_numbers(-4, -4), "-4 is equal to -4")
})

test_that("handles positive and negative numbers correctly", {
  expect_equal(compare_numbers(-3, 3), "-3 is less than 3")
  expect_equal(compare_numbers(3, -3), "3 is greater than -3")
})

test_main.R

Master the art of writing and using functions in R, from basic syntax to advanced functional programming techniques. This course guides you through creating your own functions, leveraging anonymous functions, and applying functional programming concepts to solve real-world problems in R.

Learn how to define, call, and utilize functions in R, including understanding parameters, return values, and default arguments.

Discover how to use anonymous (inline) functions for concise, on-the-fly operations, and see how they fit into R's functional programming paradigm.

Apply functional programming concepts in R to solve real-world problems, focusing on writing concise, reusable, and efficient code.

Challenge: Parameter Practice

解答