# Daily precipitation data
daily_prcp <- data.frame(
date = seq(as.Date("2000-01-01"), as.Date("2002-12-31"), by = "day"),
rainfall = pmax(0, rgamma(1096, shape = 0.5, scale = 10))
)
# Calculate comprehensive precipitation statistics
calculate_PRCPstats(
df = daily_prcp,
frequency = "daily",
time_col = "date",
prcp_col = "rainfall"
)
# With custom wet threshold (2mm instead of 1mm)
calculate_PRCPstats(
df = daily_prcp,
frequency = "daily",
time_col = "date",
prcp_col = "rainfall",
wet_threshold = 2
)
# Hourly precipitation data (converted to daily)
hourly_prcp <- data.frame(
datetime = seq(
as.POSIXct("2000-01-01 00:00", tz = "UTC"),
as.POSIXct("2000-01-31 23:00", tz = "UTC"),
by = "hour"
),
precip = pmax(0, rgamma(31*24, shape = 0.3, scale = 2))
)
calculate_PRCPstats(
df = hourly_prcp,
frequency = "hourly",
time_col = "datetime",
precip_col = "precip"
)
Run the code above in your browser using DataLab