\begin{Schunk}
\begin{Sinput}
> d$criticalv1 <- ifelse((d$condition == "a" & d$roi == 3) | (d$condition == 
+     "b" & d$roi == 6) | (d$condition == "c" & d$roi == 8) | (d$condition == 
+     "d" & d$roi == 6) | (d$condition == "e" & d$roi == 9) | (d$condition == 
+     "f" & d$roi == 11), "yes", "no")
> d <- subset(d, criticalv1 == "yes")
> d$criticalv1 <- factor(d$criticalv1)
> full.table.v1 <- print(length(d$value))
\end{Sinput}
\begin{Soutput}
[1] 9473
\end{Soutput}
\end{Schunk}

