# NOT RUN {
filename = system.file("extdata","sample_GT3X+.csv.gz",package="ActivityIndex")
res = ReadGT3XPlus(filename)
hertz = res$Hertz
x = res$Raw[ 1:1000, c("Time", "X", "Y", "Z")]
res = Sigma0(x, hertz = hertz)
testthat::expect_equal(res, c(SD = 0.184321637135534))
# }
Run the code above in your browser using DataLab