Updated the *in-situ* examples in the README file

mladenjovanovic · Jan 31, 2024 · adaadae · adaadae
1 parent f3ca013
commit adaadae
Show file tree

Hide file tree

Showing 4 changed files with 3 additions and 2 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -2,6 +2,7 @@
 
 * For `model_in_situ()` function, the filtering parameters (`velocity_threshold`, `velocity_step`, and `n_observations`) are returned in the `corrections` element of the returned object. These are also returned in the `CV` element of the returned object for every cross-validation fold
 * `velocity_threshold` parameter in the `model_in_situ()` function is now by default `NULL`, in which case the velocity of the observation with the fastest acceleration is taken as the cutoff value
+* Updated the *in-situ* examples in the README file
 
 # shorts 3.1.0
 

diff --git a/README.Rmd b/README.Rmd
@@ -355,7 +355,7 @@ LPS_session %>%
   ) +
   geom_abline(
     intercept = coef(embedded_model$model)[[1]],
-    slope = coef(embedded_model$model)[[2]],
+    slope = -coef(embedded_model$model)[[1]]/coef(embedded_model$model)[[2]],
     linetype = "dotted", color = "red") +
   scale_x_continuous(expand = c(0, 0), limits = c(0,  embedded_model$parameters$MSS)) +
   scale_y_continuous(expand = c(0, 0), limits = c(0, embedded_model$parameters$MAC)) 

diff --git a/README.md b/README.md
@@ -587,7 +587,7 @@ LPS_session %>%
   ) +
   geom_abline(
     intercept = coef(embedded_model$model)[[1]],
-    slope = coef(embedded_model$model)[[2]],
+    slope = -coef(embedded_model$model)[[1]]/coef(embedded_model$model)[[2]],
     linetype = "dotted", color = "red") +
   scale_x_continuous(expand = c(0, 0), limits = c(0,  embedded_model$parameters$MSS)) +
   scale_y_continuous(expand = c(0, 0), limits = c(0, embedded_model$parameters$MAC)) 

diff --git a/man/figures/README-unnamed-chunk-20-1.png b/man/figures/README-unnamed-chunk-20-1.png