original_codes/original_fill_na_dgm.R

In nasserdr/digyRhythm: Analyzing Animal's Rhythmicity

#imports
library(xts) #xts #period.apply #endpoints
library(lubridate) #date
library(ggplot2)

activity <- 'Motion.Index'

#Configs
data("df516b_2", package = "digiRhythm")
data <- df516b_2


data <- remove_activity_outliers(data)
df_act_info(data)
activity = names(data)[2]