# 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))
})
#' # basic usage of RLF (regression)
#' # data(airquality)
#' set.seed(217)
#' ozone.rlf <- RLForest(Ozone ~ ., data=airquality,ntreesub=1,replace=FALSE,Lp=0.8)
#' print(ozone.rf)
#' #prediction
#' (predict(ozone.rlf, airquality))