library(dplyr)
### general metrics
## sfn_data
data('ARG_TRE', package = 'sapfluxnetr')
ARG_TRE_metrics <- sfn_metrics(
ARG_TRE,
period = '7 days',
.funs = list(~ mean(., na.rm = TRUE), ~ sd(., na.rm = TRUE), ~ n()),
solar = FALSE,
interval = 'general'
)
str(ARG_TRE_metrics)
ARG_TRE_metrics[['sapf']]
ARG_TRE_metrics[['env']]
## sfn_data_multi
# \donttest{
data('ARG_MAZ', package = 'sapfluxnetr')
data('AUS_CAN_ST2_MIX', package = 'sapfluxnetr')
multi_sfn <- sfn_data_multi(ARG_TRE, ARG_MAZ, AUS_CAN_ST2_MIX)
multi_metrics <- sfn_metrics(
multi_sfn,
period = '7 days',
.funs = list(~ mean(., na.rm = TRUE), ~ sd(., na.rm = TRUE), ~ n()),
solar = FALSE,
interval = 'general'
)
str(multi_metrics)
multi_metrics[['ARG_TRE']][['sapf']]
# }
### midday metrics
ARG_TRE_midday <- sfn_metrics(
ARG_TRE,
period = '1 day',
.funs = list(~ mean(., na.rm = TRUE), ~ sd(., na.rm = TRUE), ~ n()),
solar = TRUE,
interval = 'midday', int_start = 11, int_end = 13
)
str(ARG_TRE_midday)
ARG_TRE_midday[['sapf']]
Run the code above in your browser using DataLab