# dplyr
library(dplyr)
# check convergence to 12h:
diurnal_centroid(rep(1, 1000)) # 12.012 h
diurnal_centroid(rep(10000, 1000)) # 12.012 h, variable scale not affects calculation
# sapflow diurnal centroid
data('ARG_TRE', package = 'sapfluxnetr')
sfn_metrics(
ARG_TRE,
period = '1 day',
.funs = list(~ diurnal_centroid(.),
~ data_coverage(., timestep, period_minutes)),
solar = FALSE,
interval = 'general'
)
Run the code above in your browser using DataLab