# Extract clusters and add mean MEDI value
sample.data.environment |>
filter_Date(length = "2 days") |>
extract_clusters(MEDI > 1000) |>
extract_metric(
sample.data.environment,
"mean_medi" = mean(MEDI, na.rm = TRUE)
) |>
dplyr::select(Id, state.count, duration, mean_medi)
# Extract states and add mean MEDI value
dataset <-
sample.data.environment |>
filter_Date(length = "2 days") |>
add_photoperiod(c(48.5, 9))
dataset |>
extract_states(photoperiod.state) |>
extract_metric(dataset, mean_lux = mean(MEDI)) |>
dplyr::select(state.count, duration, mean_lux)
Run the code above in your browser using DataLab