# Example data
env_data <- data.table::data.table(
Station = c("DENW094", "DENW094", "DENW006", "DENW094"),
Komponente = c("NO2", "O3", "NO2", "NO2"),
Wert = c(45, 30, 50, 40),
date = as.POSIXct(c(
"2023-01-01 08:00:00", "2023-01-01 09:00:00",
"2023-01-01 08:00:00", "2023-01-02 08:00:00"
)),
Komponente_txt = c(
"Nitrogen Dioxide", "Ozone", "Nitrogen Dioxide", "Nitrogen Dioxide"
)
)
# Clean data for StationA without aggregation
cleaned_data <- clean_data(env_data, station = "DENW094", aggregate_daily = FALSE)
print(cleaned_data)
Run the code above in your browser using DataLab