R Under development (unstable) (2025-11-19 r89040 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> # This file is part of the standard setup for testthat.
> # It is recommended that you do not modify it.
> #
> # Where should you do additional test configuration?
> # Learn more about the roles of various files in:
> # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
> # * https://testthat.r-lib.org/articles/special-files.html
> 
> library(testthat)
> library(RiemannLebesgueForest)
> 
> 
> 
> 
> test_that("my_function returns the correct prediction and tree structure", {
+   # Test code with expectations
+   # data(airquality)
+   # set.seed(217)
+   # ozone.rlf <- RLForest(Ozone ~ ., data=airquality,na.action=na.omit,ntreesub=1,replace=FALSE,Lp=0.8)
+   # print(ozone.rlf)
+   # (predict(ozone.rlf, airquality))
+   # set.seed(17)
+   # x <- matrix(runif(5e2), 100)
+   # y <- runif(100)
+   # (myrlf <- RLForest(x, y,ntreesub=1,replace=FALSE,Lp=0.8))
+   # (predict(myrlf, x))
+ })
── Skip: my_function returns the correct prediction and tree structure ─────────
Reason: empty test
> 
> proc.time()
   user  system elapsed 
   0.68    0.14    0.82