Running examples in 'IATscores-Ex.R' failed
The error most likely occurred in:

> ### Name: Pretreatment
> ### Title: Pretreat the IAT data in input.
> ### Aliases: Pretreatment
> 
> ### ** Examples
> 
> #### generate random IAT data ####
> set.seed(1234)
> rawIATdata <- data.frame(
+   # ID of each participant (N = 10)
+   ID = rep(1:10, each = 180), 
+   # seven-block structure, as in Greenwald, Nosek & Banaji (2003)
+   # block 1 = target discrimination (e.g., Bush vs. Gore items)
+   # block 2 = attribute discrimination (e.g., Pleasant words vs. unpleasant)
+   # block 3 = combined practice (e.g., Bush + pleasant vs. Gore + unpleasant)
+   # block 4 = combined critical  (e.g., Bush + pleasant vs. Gore + unpleasant)
+   # block 5 = reversed target discrimination (e.g., Gore vs. Bush)
+   # block 6 = reversed combined practice (e.g., Gore + pleasant vs. Bush + unpleasant)
+   # block 7 = reversed combined critical (e.g., Gore + pleasant vs. Bush + unpleasant)
+   block = rep(c(rep(1:3, each = 20),
+                 rep(4, 40),
+                 rep(5:6, each = 20),
+                 rep(7, 40)), 10),
+ # expected proportion of errors = 10 percent
+   correct = sample(c(0, 1), size = 1800, replace = TRUE, prob = c(.2, .8)),
+   # reaction times are generated from a mix of two chi2 distributions,
+   # one centered on 550ms and one on 100ms to simulate fast latencies
+   latency = round(sample(c(rchisq(1500, df = 1, ncp = 550),
+                            rchisq(300, df = 1, ncp = 100)), 1800)))
> 
> # add some IAT effect by making trials longer in block 6 and 7
> rawIATdata[rawIATdata$block >= 6, "latency"] <- 
+   rawIATdata[rawIATdata$block >= 6, "latency"] + 100
>   
> # add some more effect for subjects 1 to 5
> rawIATdata[rawIATdata$block >= 6 &
+              rawIATdata$ID <= 5, "latency"] <- 
+   rawIATdata[rawIATdata$block >= 6 &
+              rawIATdata$ID <= 5, "latency"] + 100
>                
> head(rawIATdata)
  ID block correct latency
1  1     1       1     635
2  1     1       1     595
3  1     1       1     520
4  1     1       1     527
5  1     1       0      96
6  1     1       1     549
>                
> #### pretreat IAT data using function Pretreatment ####
> IATdata <- Pretreatment(rawIATdata,
+                              label_subject = "ID",
+                           label_latency = "latency",
+                           label_accuracy = "correct",
+                           label_block = "block",
+                           block_pair1 = c(3, 4),
+                           block_pair2 = c(6, 7),
+                           label_praccrit = "block",
+                           block_prac = c(3, 6),
+                           block_crit = c(4, 7))
Error in `[<-.data.frame`(`*tmp*`, IAT2$blockcode == "practice", "praccrit",  : 
  replacement has 1 row, data has 0
Calls: Pretreatment -> [<- -> [<-.data.frame
Execution halted