inst/extdata/scripts/compare_functions.R

In KWB-R/kwb.misa: Functions to be Used in Project MiSa

# compare misa time interval functions with Haukes function
df <- kwb.base::hsExampleTSeries(60)

kwb.base::demoGroupByInterval(
  df, step = kwb.datetime::minTimeStep(df[, 1]), to_pdf = TRUE)

install.packages("xts")

# Vergleichen der same_inarow und kwb.utils::findChanges()
# See new implementation of same_inarow()...