在不使用testthat进行单元测试的情况下，可以使用其他方式来进行测试。以下是一些常见的解决方法：

1. 手动测试： 使用这种方法，您可以编写自己的测试函数，并在其中调用要测试的函数，然后检查其输出是否符合预期。例如，假设您有一个名为addition的函数，用于将两个数字相加：

   addition <- function(a, b) {
     return(a + b)
   }
   

   您可以编写一个测试函数来验证addition函数的输出是否正确：

   test_addition <- function() {
     # 测试 addtion(2, 3) 是否返回 5
     result <- addition(2, 3)
     if(result != 5) {
       stop("addition(2, 3) 返回的值不正确")
     }
     
     # 测试 addtion(-2, 5) 是否返回 3
     result <- addition(-2, 5)
     if(result != 3) {
       stop("addition(-2, 5) 返回的值不正确")
     }
     
     # 添加更多的测试用例...
     
     print("所有测试用例通过")
   }
   

   您可以手动运行test_addition函数来测试addition函数的输出是否正确。

2. 使用assert函数： 有一些R包提供了assert函数，它们可以用于编写更简洁的断言语句。通过使用assert函数，您可以编写更紧凑的测试代码。例如，使用assertthat包中的assert_that函数，您可以编写以下测试代码：

   library(assertthat)
   
   test_addition <- function() {
     assert_that(addition(2, 3) == 5)
     assert_that(addition(-2, 5) == 3)
     # 添加更多的测试用例...
     print("所有测试用例通过")
   }
   

   您可以手动运行test_addition函数来测试addition函数的输出是否正确。

3. 使用其他测试框架： 另外，还有其他一些R包提供了不同的单元测试框架，如RUnit和testthatr。您可以尝试使用这些框架来进行单元测试。例如，使用RUnit包，您可以编写以下测试代码：

   library(RUnit)
   
   test_addition <- function() {
     testSuite <- defineTestSuite("addition tests")
     testSuite$addTest("addition(2, 3) returns 5", {
       result <- addition(2, 3)
       checkEquals(result, 5)
     })
     testSuite$addTest("addition(-2, 5) returns 3", {
       result <- addition(-2, 5)
       checkEquals(result, 3)
     })
     # 添加更多的测试用例...
     testResult <- runTestSuite(testSuite)
     print(testResult)
   }
   

   您可以手动运行test_addition函数来测试addition函数的输出是否正确。

无论您选择哪种方法，都应该确保测试覆盖了各种边界情况，并且输出符合预期。这样可以提高代码的质量和可靠性。