Reduced the number of examples in

1. get_walk_features 2. get_kinetic_tremor_features 3. get_tremor_features 4. get_balance_features
itismeghasyam · Feb 19, 2019 · 57581d0 · 57581d0
1 parent dfb5b61
commit 57581d0
Show file tree

Hide file tree

Showing 4 changed files with 14 additions and 62 deletions.
diff --git a/R/get_balance_features.R b/R/get_balance_features.R
@@ -79,27 +79,15 @@
 #' balance_features <- get_balance_features(
 #'   accelerometer_data,
 #'   gyroscope_data,
-#'   time_filter = c(2,4))
-#' 
-#' balance_features <- get_balance_features(
-#'   accelerometer_data,
-#'   gyroscope_data,
-#'   detrend = TRUE)
-#' 
-#' balance_features <- get_balance_features(
-#'   accelerometer_data,
-#'   gyroscope_data,
-#'   frequency_filter = c(0.5, 25))
+#'   time_filter = c(2,4),
+#'   detrend = TRUE,
+#'   frequency_filter = c(0.5,25))
 #' 
 #' balance_features <- get_balance_features(
 #'   accelerometer_data,
 #'   gyroscope_data,
 #'   window_length = 256,
-#'   window_overlap = 0.2)
-#' 
-#' balance_features <- get_balance_features(
-#'   accelerometer_data,
-#'   gyroscope_data,
+#'   window_overlap = 0.2,
 #'   derived_kinematics = TRUE)
 #' 
 #' balance_features <- get_balance_features(

diff --git a/R/get_kinetic_tremor_features.R b/R/get_kinetic_tremor_features.R
@@ -90,27 +90,15 @@
 #' kinetic_tremor_features <- get_kinetic_tremor_features(
 #'   accelerometer_data,
 #'   gyroscope_data,
-#'   time_filter = c(2,4))
-#' 
-#' kinetic_tremor_features <- get_kinetic_tremor_features(
-#'   accelerometer_data,
-#'   gyroscope_data,
-#'   detrend = TRUE)
-#' 
-#' kinetic_tremor_features <- get_kinetic_tremor_features(
-#'   accelerometer_data,
-#'   gyroscope_data,
+#'   time_filter = c(2,4),
+#'   detrend = TRUE,
 #'   frequency_filter = c(0.5, 25))
 #' 
 #' kinetic_tremor_features <- get_kinetic_tremor_features(
 #'   accelerometer_data,
 #'   gyroscope_data,
 #'   window_length = 256,
-#'   window_overlap = 0.2)
-#' 
-#' kinetic_tremor_features <- get_kinetic_tremor_features(
-#'   accelerometer_data,
-#'   gyroscope_data,
+#'   window_overlap = 0.2,
 #'   derived_kinematics = TRUE)
 #' 
 #' kinetic_tremor_features <- get_kinetic_tremor_features(

diff --git a/R/get_tremor_features.R b/R/get_tremor_features.R
@@ -87,27 +87,15 @@
 #' tremor_features <- get_tremor_features(
 #'   accelerometer_data,
 #'   gyroscope_data,
-#'   time_filter = c(2,4))
-#' 
-#' tremor_features <- get_tremor_features(
-#'   accelerometer_data,
-#'   gyroscope_data,
-#'   detrend = TRUE)
-#' 
-#' tremor_features <- get_tremor_features(
-#'   accelerometer_data,
-#'   gyroscope_data,
+#'   time_filter = c(2,4),
+#'   detrend = TRUE,
 #'   frequency_filter = c(0.5, 25))
 #' 
 #' tremor_features <- get_tremor_features(
 #'   accelerometer_data,
 #'   gyroscope_data,
 #'   window_length = 256,
-#'   window_overlap = 0.2)
-#' 
-#' tremor_features <- get_tremor_features(
-#'   accelerometer_data,
-#'   gyroscope_data,
+#'   window_overlap = 0.2,
 #'   derived_kinematics = TRUE)
 #' 
 #' tremor_features <- get_tremor_features(

diff --git a/R/get_walk_features.R b/R/get_walk_features.R
@@ -82,27 +82,15 @@
 #' walk_features <- get_walk_features(
 #'   accelerometer_data,
 #'   gyroscope_data,
-#'   time_filter = c(2,4))
-#' 
-#' walk_features <- get_walk_features(
-#'   accelerometer_data,
-#'   gyroscope_data,
-#'   detrend = TRUE)
-#' 
-#' walk_features <- get_walk_features(
-#'   accelerometer_data,
-#'   gyroscope_data,
-#'   frequency_filter = c(0.5, 25))
+#'   time_filter = c(2,4),
+#'   detrend = TRUE,
+#'   frequency_filter = c(0.5,25))
 #' 
 #' walk_features <- get_walk_features(
 #'   accelerometer_data,
 #'   gyroscope_data,
 #'   window_length = 256,
-#'   window_overlap = 0.2)
-#' 
-#' walk_features <- get_walk_features(
-#'   accelerometer_data,
-#'   gyroscope_data,
+#'   window_overlap = 0.2,
 #'   derived_kinematics = TRUE)
 #' 
 #' walk_features <- get_walk_features(