Minor fix on preprocess functions

R/R/preprocess_funcs.R

@@ -1,7 +1,7 @@
 #' @noRd
 #' @keywords internal
 
-alt_preprocess_func <- function(raw-data, general_info) {
+alt_preprocess_func <- function(raw_data, general_info) {
   # Currently class(raw_data) == "data.table"
 
   # Use general_info of raw_data
@@ -760,29 +760,29 @@ rdt_preprocess_func <- function(raw_data, general_info) {
 
 task2AFC_preprocess_func <- function(raw_data, general_info) {
   # Currently class(raw_data) == "data.table"
-  
+
   # Use general_info of raw_data
   subjs <- general_info$subjs
   n_subj <- general_info$n_subj
-  
+
   # Initialize (model-specific) data arrays
   signal <- array(0, c(n_subj))
   noise <- array(0, c(n_subj))
   h <- array(0, c(n_subj))
   f <- array(0, c(n_subj))
 
-  
+
   # Write from raw_data to the data arrays
   for (i in 1:n_subj) {
     subj <- subjs[i]
     subj_data <- subset(raw_data, raw_data$subjid == subj)
-    
+
     signal[i] = nrow(subset(subj_data, subj_data$stimulus == 1))
     noise[i] = nrow(subset(subj_data, subj_data$stimulus == 0))
     h[i] = nrow(subset(subj_data, subj_data$stimulus ==1 & subj_data$response ==1))
     f[i] = nrow(subset(subj_data, subj_data$stimulus ==0 & subj_data$response ==1))
   }
-  
+
   # Wrap into a list for Stan
   data_list <- list(
     N = n_subj,
@@ -791,7 +791,7 @@ task2AFC_preprocess_func <- function(raw_data, general_info) {
     h = h,
     f = f
   )
-  
+
   # Returned data_list will directly be passed to Stan
   return(data_list)
 }