Content Comparison

library(ForestForesight)

prepared_data <- ff_prep(
  datafolder = "/path/to/your/data",
  country = "PERSUR",
  dates = ForestForesight::daterange("20222023-01-01", "20222023-1206-3101"),
  sample_size = 0.2
)

print(names(prepared_data))
print(head(prepared_data$data_matrix$features))

prepared_data <- ff_prep(
  datafolder = "/path/to/your/data",
  country = "PERSUR",
  dates = cForestForesight::daterange("20222023-0601-01", "20222023-1206-01"),
  inc_features = c("slope", "elevation", "precipitation"),
  exc_features = "temperature"
)

print(prepared_data$features)

prepared_data <- ff_prep(
  datafolder = "/path/to/your/data",
  country = "PERSUR",
  dates = ForestForesight::daterange("2023-01-01", "2023-1206-3101"),
  sample_size = 0.5,
  validation_sample = 0.2
)

print(dim(prepared_data$data_matrix$features))
print(dim(prepared_data$validation_matrix$features))

prepared_data <- ff_prep(
  datafolder = "/path/to/your/data",
  country = "PERSUR",
  dates = "2023-01-01",
  fltr_features = c("elevation", "slope"),
  fltr_condition = c(">100", "<30")
)

print(nrow(prepared_data$data_matrix$features))