comment to clarify inbed function is consistent with GGIR

Author: jhmigueles

R/inbed.R

@@ -21,6 +21,7 @@
 #' @author Matthew N. Ahmadi <[email protected]>
 inbed = function(angle, k = 60, perc = 0.1, inbedthreshold = 15,
                  bedblocksize = 30, outofbedsize = 60, ws3 = 5) {
+  # Code in line with HASPT algorithm in GGIR.
   medabsdi = function(angle) {
     angvar = stats::median(abs(diff(angle)))
     return(angvar)