minor

R/nlRtsa_SOURCE.R

@@ -5236,11 +5236,11 @@ fltrIT <- function(TS,f){
 #'
 #' @description The 'elastic scaler'will rescale numeric vectors (1D, or columns in a matrix or data.frame) to a user defined minimum and maximum, either based on the extrema in the data, or, a minimum and maximum defined by the user.
 #'
-#' @param x     Input vector or data frame.
-#' @param mn     Minimum value of original, defaults to \code{min(x, na.rm = TRUE)}.
-#' @param mx     Maximum value of original, defaults to \code{max(x, na.rm = TRUE)}.
-#' @param hi     Minimum value to rescale to, defaults to \code{0}.
-#' @param lo     Maximum value to rescale to, defaults to \code{1}.
+#' @param x   Input vector or data frame.
+#' @param mn  Minimum value of original, defaults to \code{min(x, na.rm = TRUE)}.
+#' @param mx  Maximum value of original, defaults to \code{max(x, na.rm = TRUE)}.
+#' @param hi  Minimum value to rescale to, defaults to \code{0}.
+#' @param lo  Maximum value to rescale to, defaults to \code{1}.
 #'
 #'
 #' @details Three uses:

casnet.Rproj

@@ -19,3 +19,5 @@ PackageUseDevtools: Yes
 PackageInstallArgs: --with-keep.source
 PackageCheckArgs: --as-cran
 PackageRoxygenize: rd,collate,namespace,vignette
+
+QuitChildProcessesOnExit: Yes

vignettes/cl_RQA.R

@@ -0,0 +1,26 @@
+## ----setup, include = FALSE----------------------------------------------
+knitr::opts_chunk$set(
+  collapse = FALSE,
+  comment = ">",
+  fig.align = "center",
+  fig.width = 7 
+)
+
+## ----RNG1, echo=TRUE, message=FALSE, warning=FALSE, paged.print=FALSE----
+library(casnet)
+library(ggplot2)
+
+# Load the random number sequence data from Oomens et al. (2015)
+data(RNG)
+
+# Select a subject
+IDs <- RNG$ID%in%c(163,291)
+
+# Look at the sequence
+ggplot(RNG[IDs,],aes(x=time,y=number,group=ID)) +
+  geom_line(aes(colour=ID))+
+  facet_grid(~ID) +
+  scale_y_continuous(breaks = 1:9) +
+  ggtitle("Which of these number sequences is more 'random'?") +
+  theme_bw()
+