I am skeptical about my sleep duration result. I tried two algorithms for sleep duration, and both give a result that I don't fully trust. Only a very large minimum of my participants would adhere to the sleep guideline. However, according to their diaries, participants spend much longer in bed than the sleep guideline. When I analyze the actigraphs via Actilife using the same algorithm that I run in GGIR, the difference is very significant. It is about 1,5 to 2 hours difference. Many participants meet the guideline via Actilife.
I wonder why this might be. I wouldn't expect such a large difference between Actiflife and GGIR when the same algorithm is used.
Does anyone have any idea what could be the reason?
The script I'm using is as follows:
getwd()
setwd("D:/GGIR")
getwd()
dir()
library(GGIR)
library(tidyverse)
library(read.gt3x)
library(actilifecounts)
g.shell.GGIR(
mode=c(1,2,3,4,5),
datadir="D:/GGIR/Input",
outputdir="D:/GGIR/Output",
overwrite = TRUE,
do.parallel = TRUE,
desiredtz="Europe/Brussels",
do.report=c(1,2,3,4,5),
#=====================
# Part 1
#=====================
#f0 = 1, f1 = 5,
idloc=6,
windowsizes = c(15, 900, 3600),
dynrange = 8,
do.enmo = FALSE,
#acc.metric = "ENMO",
#do.mad=TRUE,
#acc.metric="MAD",
do.neishabouricounts = TRUE,
acc.metric="NeishabouriCount_y",
#=====================
# Part 2
#=====================
strategy = 1,
hrs.del.start = 10, hrs.del.end = 0,
includedaycrit = 16,
qwindow=c(0,24),
mvpathreshold =420,
bout.metric = 6,
#excludefirstlast = FALSE,
iglevels=TRUE,
#=====================
# Part 3 + 4
#=====================
#outliers.only = FALSE,
do.visual = TRUE,
loglocation="D:/GGIR/Input/Sleeplogv2.csv",
sleeplogidnum = FALSE,
colid = 1,
coln1 = 3,
HASIB.algo="Sadeh1994",
Sadeh_axis="Y",
sensor.location="hip",
HASPT.algo="HorAngle",
longitudinal_axis=2,
timethreshold=(5),
anglethreshold=5,
ignorenonwear=TRUE,
excludefirst.part4=TRUE,
def.noc.sleep=1,
do.sibreport=TRUE,
possible_nap_edge_acc=Inf,
possible_nap_dur = c(15, 240),
#=====================
# Part 5
#=====================
threshold.lig = 26, threshold.mod = 420, threshold.vig = 842,
boutcriter = 0.8, boutcriter.in = 0.9, boutcriter.lig = 0.8,
boutcriter.mvpa = 0.8, boutdur.in = c(1,10,30), boutdur.lig = c(1,10),
boutdur.mvpa = c(1),
includedaycrit.part5 = 2/3,
#=====================
# Visual report
#=====================
timewindow = c("WW",),
visualreport=TRUE,
week_weekend_aggregate.part5 = TRUE)
--
You received this message because you are subscribed to the Google Groups "R package GGIR" group.
To unsubscribe from this group and stop receiving emails from it, send an email to RpackageGGIR...@googlegroups.com.
To view this discussion on the web, visit https://groups.google.com/d/msgid/RpackageGGIR/b55d4c3a-fa94-48ba-b6d4-626c985eae23n%40googlegroups.com.