From 8e3d5eb98c96f956bfc3acfdc67373399a682d53 Mon Sep 17 00:00:00 2001
From: Meng Li <34143965+Meng6@users.noreply.github.com>
Date: Sun, 3 Oct 2021 01:58:37 -0400
Subject: [PATCH] Fix typos

---
 src/models/workflow_example/clean_sensor_features.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/models/workflow_example/clean_sensor_features.R b/src/models/workflow_example/clean_sensor_features.R
index af4d2a81..3ec47b95 100644
--- a/src/models/workflow_example/clean_sensor_features.R
+++ b/src/models/workflow_example/clean_sensor_features.R
@@ -11,8 +11,8 @@ cols_nan_threshold <- as.numeric(snakemake@params[["cols_nan_threshold"]])
 drop_zero_variance_columns <- as.logical(snakemake@params[["cols_var_threshold"]])
 rows_nan_threshold <- as.numeric(snakemake@params[["rows_nan_threshold"]])
 data_yielded_hours_ratio_threshold <- as.numeric(snakemake@params[["data_yielded_hours_ratio_threshold"]])
-corr_valid_pairs_threshold <- as.numeric(snakemake@params[["corr_valid_pairs_threshold"]]
-corr_threshold <- as.numeric(snakemake@params[["corr_threshold"]]
+corr_valid_pairs_threshold <- as.numeric(snakemake@params[["corr_valid_pairs_threshold"]])
+corr_threshold <- as.numeric(snakemake@params[["corr_threshold"]])
 
 # drop rows with the value of "phone_data_yield_rapids_ratiovalidyieldedhours" column less than data_yielded_hours_ratio_threshold
 clean_features <- clean_features %>%