R version 2.12.0 (2010-10-15) Copyright (C) 2010 The R Foundation for Statistical Computing ISBN 3-900051-07-0 Platform: i486-pc-linux-gnu (32-bit) R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > x <- array(list('1' + ,'Trt' + ,'NoCue' + ,'Neut' + ,433.5 + ,'1' + ,'Trt' + ,'NoCue' + ,'Cong' + ,423.9 + ,'1' + ,'Trt' + ,'NoCue' + ,'Inc' + ,490.9 + ,'1' + ,'Trt' + ,'Cent' + ,'Neut' + ,385.2 + ,'1' + ,'Trt' + ,'Cent' + ,'Cong' + ,368.6 + ,'1' + ,'Trt' + ,'Cent' + ,'Inc' + ,473.4 + ,'1' + ,'Trt' + ,'Double' + ,'Neut' + ,378.9 + ,'1' + ,'Trt' + ,'Double' + ,'Cong' + ,378.9 + ,'1' + ,'Trt' + ,'Double' + ,'Inc' + ,455.4 + ,'1' + ,'Trt' + ,'Spatial' + ,'Neut' + ,328.1 + ,'1' + ,'Trt' + ,'Spatial' + ,'Cong' + ,350.2 + ,'1' + ,'Trt' + ,'Spatial' + ,'Inc' + ,407.2 + ,'2' + ,'Trt' + ,'NoCue' + ,'Neut' + ,436.4 + ,'2' + ,'Trt' + ,'NoCue' + ,'Cong' + ,441.9 + ,'2' + ,'Trt' + ,'NoCue' + ,'Inc' + ,483.3 + ,'2' + ,'Trt' + ,'Cent' + ,'Neut' + ,374.2 + ,'2' + ,'Trt' + ,'Cent' + ,'Cong' + ,389.8 + ,'2' + ,'Trt' + ,'Cent' + ,'Inc' + ,455.7 + ,'2' + ,'Trt' + ,'Double' + ,'Neut' + ,357.0 + ,'2' + ,'Trt' + ,'Double' + ,'Cong' + ,384.2 + ,'2' + ,'Trt' + ,'Double' + ,'Inc' + ,433.0 + ,'2' + ,'Trt' + ,'Spatial' + ,'Neut' + ,339.4 + ,'2' + ,'Trt' + ,'Spatial' + ,'Cong' + ,337.6 + ,'2' + ,'Trt' + ,'Spatial' + ,'Inc' + ,421.0 + ,'3' + ,'Trt' + ,'NoCue' + ,'Neut' + ,428.7 + ,'3' + ,'Trt' + ,'NoCue' + ,'Cong' + ,428.1 + ,'3' + ,'Trt' + ,'NoCue' + ,'Inc' + ,503.3 + ,'3' + ,'Trt' + ,'Cent' + ,'Neut' + ,371.2 + ,'3' + ,'Trt' + ,'Cent' + ,'Cong' + ,368.0 + ,'3' + ,'Trt' + ,'Cent' + ,'Inc' + ,436.5 + ,'3' + ,'Trt' + ,'Double' + ,'Neut' + ,392.3 + ,'3' + ,'Trt' + ,'Double' + ,'Cong' + ,356.3 + ,'3' + ,'Trt' + ,'Double' + ,'Inc' + ,432.7 + ,'3' + ,'Trt' + ,'Spatial' + ,'Neut' + ,331.3 + ,'3' + ,'Trt' + ,'Spatial' + ,'Cong' + ,334.6 + ,'3' + ,'Trt' + ,'Spatial' + ,'Inc' + ,431.4 + ,'4' + ,'Trt' + ,'NoCue' + ,'Neut' + ,415.5 + ,'4' + ,'Trt' + ,'NoCue' + ,'Cong' + ,433.3 + ,'4' + ,'Trt' + ,'NoCue' + ,'Inc' + ,498.5 + ,'4' + ,'Trt' + ,'Cent' + ,'Neut' + ,384.8 + ,'4' + ,'Trt' + ,'Cent' + ,'Cong' + ,383.2 + ,'4' + ,'Trt' + ,'Cent' + ,'Inc' + ,438.5 + ,'4' + ,'Trt' + ,'Double' + ,'Neut' + ,370.3 + ,'4' + ,'Trt' + ,'Double' + ,'Cong' + ,399.4 + ,'4' + ,'Trt' + ,'Double' + ,'Inc' + ,445.9 + ,'4' + ,'Trt' + ,'Spatial' + ,'Neut' + ,320.7 + ,'4' + ,'Trt' + ,'Spatial' + ,'Cong' + ,342.8 + ,'4' + ,'Trt' + ,'Spatial' + ,'Inc' + ,407.0 + ,'5' + ,'Trt' + ,'NoCue' + ,'Neut' + ,429.1 + ,'5' + ,'Trt' + ,'NoCue' + ,'Cong' + ,436.9 + ,'5' + ,'Trt' + ,'NoCue' + ,'Inc' + ,499.0 + ,'5' + ,'Trt' + ,'Cent' + ,'Neut' + ,378.1 + ,'5' + ,'Trt' + ,'Cent' + ,'Cong' + ,394.6 + ,'5' + ,'Trt' + ,'Cent' + ,'Inc' + ,471.4 + ,'5' + ,'Trt' + ,'Double' + ,'Neut' + ,370.6 + ,'5' + ,'Trt' + ,'Double' + ,'Cong' + ,370.7 + ,'5' + ,'Trt' + ,'Double' + ,'Inc' + ,447.1 + ,'5' + ,'Trt' + ,'Spatial' + ,'Neut' + ,332.5 + ,'5' + ,'Trt' + ,'Spatial' + ,'Cong' + ,329.9 + ,'5' + ,'Trt' + ,'Spatial' + ,'Inc' + ,418.3 + ,'6' + ,'Trt' + ,'NoCue' + ,'Neut' + ,435.3 + ,'6' + ,'Trt' + ,'NoCue' + ,'Cong' + ,422.7 + ,'6' + ,'Trt' + ,'NoCue' + ,'Inc' + ,480.0 + ,'6' + ,'Trt' + ,'Cent' + ,'Neut' + ,390.7 + ,'6' + ,'Trt' + ,'Cent' + ,'Cong' + ,366.9 + ,'6' + ,'Trt' + ,'Cent' + ,'Inc' + ,461.5 + ,'6' + ,'Trt' + ,'Double' + ,'Neut' + ,354.1 + ,'6' + ,'Trt' + ,'Double' + ,'Cong' + ,385.6 + ,'6' + ,'Trt' + ,'Double' + ,'Inc' + ,435.4 + ,'6' + ,'Trt' + ,'Spatial' + ,'Neut' + ,336.3 + ,'6' + ,'Trt' + ,'Spatial' + ,'Cong' + ,335.0 + ,'6' + ,'Trt' + ,'Spatial' + ,'Inc' + ,399.6 + ,'7' + ,'Trt' + ,'NoCue' + ,'Neut' + ,435.4 + ,'7' + ,'Trt' + ,'NoCue' + ,'Cong' + ,412.3 + ,'7' + ,'Trt' + ,'NoCue' + ,'Inc' + ,484.9 + ,'7' + ,'Trt' + ,'Cent' + ,'Neut' + ,387.8 + ,'7' + ,'Trt' + ,'Cent' + ,'Cong' + ,380.5 + ,'7' + ,'Trt' + ,'Cent' + ,'Inc' + ,443.4 + ,'7' + ,'Trt' + ,'Double' + ,'Neut' + ,361.9 + ,'7' + ,'Trt' + ,'Double' + ,'Cong' + ,346.4 + ,'7' + ,'Trt' + ,'Double' + ,'Inc' + ,452.1 + ,'7' + ,'Trt' + ,'Spatial' + ,'Neut' + ,351.1 + ,'7' + ,'Trt' + ,'Spatial' + ,'Cong' + ,345.6 + ,'7' + ,'Trt' + ,'Spatial' + ,'Inc' + ,424.7 + ,'8' + ,'Trt' + ,'NoCue' + ,'Neut' + ,402.9 + ,'8' + ,'Trt' + ,'NoCue' + ,'Cong' + ,412.7 + ,'8' + ,'Trt' + ,'NoCue' + ,'Inc' + ,502.4 + ,'8' + ,'Trt' + ,'Cent' + ,'Neut' + ,387.8 + ,'8' + ,'Trt' + ,'Cent' + ,'Cong' + ,358.2 + ,'8' + ,'Trt' + ,'Cent' + ,'Inc' + ,437.8 + ,'8' + ,'Trt' + ,'Double' + ,'Neut' + ,357.4 + ,'8' + ,'Trt' + ,'Double' + ,'Cong' + ,401.8 + ,'8' + ,'Trt' + ,'Double' + ,'Inc' + ,459.5 + ,'8' + ,'Trt' + ,'Spatial' + ,'Neut' + ,360.1 + ,'8' + ,'Trt' + ,'Spatial' + ,'Cong' + ,335.6 + ,'8' + ,'Trt' + ,'Spatial' + ,'Inc' + ,405.1 + ,'9' + ,'Trt' + ,'NoCue' + ,'Neut' + ,419.2 + ,'9' + ,'Trt' + ,'NoCue' + ,'Cong' + ,420.1 + ,'9' + ,'Trt' + ,'NoCue' + ,'Inc' + ,500.0 + ,'9' + ,'Trt' + ,'Cent' + ,'Neut' + ,386.1 + ,'9' + ,'Trt' + ,'Cent' + ,'Cong' + ,381.4 + ,'9' + ,'Trt' + ,'Cent' + ,'Inc' + ,460.0 + ,'9' + ,'Trt' + ,'Double' + ,'Neut' + ,370.2 + ,'9' + ,'Trt' + ,'Double' + ,'Cong' + ,369.4 + ,'9' + ,'Trt' + ,'Double' + ,'Inc' + ,445.4 + ,'9' + ,'Trt' + ,'Spatial' + ,'Neut' + ,351.2 + ,'9' + ,'Trt' + ,'Spatial' + ,'Cong' + ,336.6 + ,'9' + ,'Trt' + ,'Spatial' + ,'Inc' + ,422.3 + ,'10' + ,'Trt' + ,'NoCue' + ,'Neut' + ,441.6 + ,'10' + ,'Trt' + ,'NoCue' + ,'Cong' + ,432.2 + ,'10' + ,'Trt' + ,'NoCue' + ,'Inc' + ,516.9 + ,'10' + ,'Trt' + ,'Cent' + ,'Neut' + ,382.5 + ,'10' + ,'Trt' + ,'Cent' + ,'Cong' + ,376.9 + ,'10' + ,'Trt' + ,'Cent' + ,'Inc' + ,442.9 + ,'10' + ,'Trt' + ,'Double' + ,'Neut' + ,385.6 + ,'10' + ,'Trt' + ,'Double' + ,'Cong' + ,385.9 + ,'10' + ,'Trt' + ,'Double' + ,'Inc' + ,457.8 + ,'10' + ,'Trt' + ,'Spatial' + ,'Neut' + ,342.2 + ,'10' + ,'Trt' + ,'Spatial' + ,'Cong' + ,331.5 + ,'10' + ,'Trt' + ,'Spatial' + ,'Inc' + ,408.1 + ,'11' + ,'Ctrl' + ,'NoCue' + ,'Neut' + ,446.7 + ,'11' + ,'Ctrl' + ,'NoCue' + ,'Cong' + ,433.8 + ,'11' + ,'Ctrl' + ,'NoCue' + ,'Inc' + ,517.3 + ,'11' + ,'Ctrl' + ,'Cent' + ,'Neut' + ,380.3 + ,'11' + ,'Ctrl' + ,'Cent' + ,'Cong' + ,371.6 + ,'11' + ,'Ctrl' + ,'Cent' + ,'Inc' + ,493.7 + ,'11' + ,'Ctrl' + ,'Double' + ,'Neut' + ,390.9 + ,'11' + ,'Ctrl' + ,'Double' + ,'Cong' + ,394.2 + ,'11' + ,'Ctrl' + ,'Double' + ,'Inc' + ,482.1 + ,'11' + ,'Ctrl' + ,'Spatial' + ,'Neut' + ,345.2 + ,'11' + ,'Ctrl' + ,'Spatial' + ,'Cong' + ,330.7 + ,'11' + ,'Ctrl' + ,'Spatial' + ,'Inc' + ,391.5 + ,'12' + ,'Ctrl' + ,'NoCue' + ,'Neut' + ,420.7 + ,'12' + ,'Ctrl' + ,'NoCue' + ,'Cong' + ,442.7 + ,'12' + ,'Ctrl' + ,'NoCue' + ,'Inc' + ,513.3 + ,'12' + ,'Ctrl' + ,'Cent' + ,'Neut' + ,374.7 + ,'12' + ,'Ctrl' + ,'Cent' + ,'Cong' + ,373.0 + ,'12' + ,'Ctrl' + ,'Cent' + ,'Inc' + ,486.7 + ,'12' + ,'Ctrl' + ,'Double' + ,'Neut' + ,380.0 + ,'12' + ,'Ctrl' + ,'Double' + ,'Cong' + ,374.9 + ,'12' + ,'Ctrl' + ,'Double' + ,'Inc' + ,495.7 + ,'12' + ,'Ctrl' + ,'Spatial' + ,'Neut' + ,352.6 + ,'12' + ,'Ctrl' + ,'Spatial' + ,'Cong' + ,347.6 + ,'12' + ,'Ctrl' + ,'Spatial' + ,'Inc' + ,424.4 + ,'13' + ,'Ctrl' + ,'NoCue' + ,'Neut' + ,422.1 + ,'13' + ,'Ctrl' + ,'NoCue' + ,'Cong' + ,424.2 + ,'13' + ,'Ctrl' + ,'NoCue' + ,'Inc' + ,503.6 + ,'13' + ,'Ctrl' + ,'Cent' + ,'Neut' + ,364.8 + ,'13' + ,'Ctrl' + ,'Cent' + ,'Cong' + ,364.3 + ,'13' + ,'Ctrl' + ,'Cent' + ,'Inc' + ,474.6 + ,'13' + ,'Ctrl' + ,'Double' + ,'Neut' + ,383.8 + ,'13' + ,'Ctrl' + ,'Double' + ,'Cong' + ,363.6 + ,'13' + ,'Ctrl' + ,'Double' + ,'Inc' + ,477.1 + ,'13' + ,'Ctrl' + ,'Spatial' + ,'Neut' + ,338.0 + ,'13' + ,'Ctrl' + ,'Spatial' + ,'Cong' + ,332.8 + ,'13' + ,'Ctrl' + ,'Spatial' + ,'Inc' + ,420.3 + ,'14' + ,'Ctrl' + ,'NoCue' + ,'Neut' + ,431.7 + ,'14' + ,'Ctrl' + ,'NoCue' + ,'Cong' + ,436.4 + ,'14' + ,'Ctrl' + ,'NoCue' + ,'Inc' + ,481.9 + ,'14' + ,'Ctrl' + ,'Cent' + ,'Neut' + ,376.7 + ,'14' + ,'Ctrl' + ,'Cent' + ,'Cong' + ,388.7 + ,'14' + ,'Ctrl' + ,'Cent' + ,'Inc' + ,484.4 + ,'14' + ,'Ctrl' + ,'Double' + ,'Neut' + ,383.4 + ,'14' + ,'Ctrl' + ,'Double' + ,'Cong' + ,363.5 + ,'14' + ,'Ctrl' + ,'Double' + ,'Inc' + ,467.4 + ,'14' + ,'Ctrl' + ,'Spatial' + ,'Neut' + ,315.9 + ,'14' + ,'Ctrl' + ,'Spatial' + ,'Cong' + ,354.7 + ,'14' + ,'Ctrl' + ,'Spatial' + ,'Inc' + ,408.6 + ,'15' + ,'Ctrl' + ,'NoCue' + ,'Neut' + ,430.9 + ,'15' + ,'Ctrl' + ,'NoCue' + ,'Cong' + ,446.8 + ,'15' + ,'Ctrl' + ,'NoCue' + ,'Inc' + ,505.1 + ,'15' + ,'Ctrl' + ,'Cent' + ,'Neut' + ,372.7 + ,'15' + ,'Ctrl' + ,'Cent' + ,'Cong' + ,382.8 + ,'15' + ,'Ctrl' + ,'Cent' + ,'Inc' + ,483.5 + ,'15' + ,'Ctrl' + ,'Double' + ,'Neut' + ,369.3 + ,'15' + ,'Ctrl' + ,'Double' + ,'Cong' + ,378.1 + ,'15' + ,'Ctrl' + ,'Double' + ,'Inc' + ,461.1 + ,'15' + ,'Ctrl' + ,'Spatial' + ,'Neut' + ,342.6 + ,'15' + ,'Ctrl' + ,'Spatial' + ,'Cong' + ,336.2 + ,'15' + ,'Ctrl' + ,'Spatial' + ,'Inc' + ,421.7 + ,'16' + ,'Ctrl' + ,'NoCue' + ,'Neut' + ,425.6 + ,'16' + ,'Ctrl' + ,'NoCue' + ,'Cong' + ,417.5 + ,'16' + ,'Ctrl' + ,'NoCue' + ,'Inc' + ,495.2 + ,'16' + ,'Ctrl' + ,'Cent' + ,'Neut' + ,373.9 + ,'16' + ,'Ctrl' + ,'Cent' + ,'Cong' + ,378.6 + ,'16' + ,'Ctrl' + ,'Cent' + ,'Inc' + ,490.9 + ,'16' + ,'Ctrl' + ,'Double' + ,'Neut' + ,381.9 + ,'16' + ,'Ctrl' + ,'Double' + ,'Cong' + ,358.5 + ,'16' + ,'Ctrl' + ,'Double' + ,'Inc' + ,464.4 + ,'16' + ,'Ctrl' + ,'Spatial' + ,'Neut' + ,340.3 + ,'16' + ,'Ctrl' + ,'Spatial' + ,'Cong' + ,351.1 + ,'16' + ,'Ctrl' + ,'Spatial' + ,'Inc' + ,408.4 + ,'17' + ,'Ctrl' + ,'NoCue' + ,'Neut' + ,421.6 + ,'17' + ,'Ctrl' + ,'NoCue' + ,'Cong' + ,432.6 + ,'17' + ,'Ctrl' + ,'NoCue' + ,'Inc' + ,502.8 + ,'17' + ,'Ctrl' + ,'Cent' + ,'Neut' + ,386.0 + ,'17' + ,'Ctrl' + ,'Cent' + ,'Cong' + ,389.3 + ,'17' + ,'Ctrl' + ,'Cent' + ,'Inc' + ,487.0 + ,'17' + ,'Ctrl' + ,'Double' + ,'Neut' + ,369.5 + ,'17' + ,'Ctrl' + ,'Double' + ,'Cong' + ,368.7 + ,'17' + ,'Ctrl' + ,'Double' + ,'Inc' + ,482.0 + ,'17' + ,'Ctrl' + ,'Spatial' + ,'Neut' + ,350.8 + ,'17' + ,'Ctrl' + ,'Spatial' + ,'Cong' + ,333.9 + ,'17' + ,'Ctrl' + ,'Spatial' + ,'Inc' + ,421.7 + ,'18' + ,'Ctrl' + ,'NoCue' + ,'Neut' + ,432.5 + ,'18' + ,'Ctrl' + ,'NoCue' + ,'Cong' + ,413.6 + ,'18' + ,'Ctrl' + ,'NoCue' + ,'Inc' + ,484.4 + ,'18' + ,'Ctrl' + ,'Cent' + ,'Neut' + ,388.4 + ,'18' + ,'Ctrl' + ,'Cent' + ,'Cong' + ,374.6 + ,'18' + ,'Ctrl' + ,'Cent' + ,'Inc' + ,475.4 + ,'18' + ,'Ctrl' + ,'Double' + ,'Neut' + ,380.8 + ,'18' + ,'Ctrl' + ,'Double' + ,'Cong' + ,372.6 + ,'18' + ,'Ctrl' + ,'Double' + ,'Inc' + ,464.2 + ,'18' + ,'Ctrl' + ,'Spatial' + ,'Neut' + ,337.4 + ,'18' + ,'Ctrl' + ,'Spatial' + ,'Cong' + ,338.3 + ,'18' + ,'Ctrl' + ,'Spatial' + ,'Inc' + ,407.7 + ,'19' + ,'Ctrl' + ,'NoCue' + ,'Neut' + ,436.6 + ,'19' + ,'Ctrl' + ,'NoCue' + ,'Cong' + ,421.7 + ,'19' + ,'Ctrl' + ,'NoCue' + ,'Inc' + ,494.7 + ,'19' + ,'Ctrl' + ,'Cent' + ,'Neut' + ,393.5 + ,'19' + ,'Ctrl' + ,'Cent' + ,'Cong' + ,393.9 + ,'19' + ,'Ctrl' + ,'Cent' + ,'Inc' + ,482.2 + ,'19' + ,'Ctrl' + ,'Double' + ,'Neut' + ,368.6 + ,'19' + ,'Ctrl' + ,'Double' + ,'Cong' + ,384.2 + ,'19' + ,'Ctrl' + ,'Double' + ,'Inc' + ,477.8 + ,'19' + ,'Ctrl' + ,'Spatial' + ,'Neut' + ,344.0 + ,'19' + ,'Ctrl' + ,'Spatial' + ,'Cong' + ,339.6 + ,'19' + ,'Ctrl' + ,'Spatial' + ,'Inc' + ,392.7 + ,'20' + ,'Ctrl' + ,'NoCue' + ,'Neut' + ,412.5 + ,'20' + ,'Ctrl' + ,'NoCue' + ,'Cong' + ,424.3 + ,'20' + ,'Ctrl' + ,'NoCue' + ,'Inc' + ,488.2 + ,'20' + ,'Ctrl' + ,'Cent' + ,'Neut' + ,372.9 + ,'20' + ,'Ctrl' + ,'Cent' + ,'Cong' + ,393.0 + ,'20' + ,'Ctrl' + ,'Cent' + ,'Inc' + ,475.3 + ,'20' + ,'Ctrl' + ,'Double' + ,'Neut' + ,384.2 + ,'20' + ,'Ctrl' + ,'Double' + ,'Cong' + ,366.5 + ,'20' + ,'Ctrl' + ,'Double' + ,'Inc' + ,460.0 + ,'20' + ,'Ctrl' + ,'Spatial' + ,'Neut' + ,338.1 + ,'20' + ,'Ctrl' + ,'Spatial' + ,'Cong' + ,372.3 + ,'20' + ,'Ctrl' + ,'Spatial' + ,'Inc' + ,418.3) + ,dim=c(5 + ,240) + ,dimnames=list(c('sid' + ,'group' + ,'cue' + ,'flanker' + ,'mean_rt') + ,1:240)) > y <- array(NA,dim=c(5,240),dimnames=list(c('sid','group','cue','flanker','mean_rt'),1:240)) > for (i in 1:dim(x)[1]) + { + for (j in 1:dim(x)[2]) + { + y[i,j] <- as.numeric(x[i,j]) + } + } There were 50 or more warnings (use warnings() to see the first 50) > par20 = '' > par19 = '' > par18 = '' > par17 = '' > par16 = '' > par15 = '' > par14 = '' > par13 = '' > par12 = '' > par11 = '' > par10 = '' > par9 = '' > par8 = '' > par7 = '' > par6 = '' > par5 = '1' > par4 = '2' > par3 = '4' > par2 = '3' > par1 = '5' > ylab = 'Y Variable Name' > xlab = 'X Variable Name' > main = 'Title Goes Here' > cat1 <- as.numeric(par1) # > cat2<- as.numeric(par2) # > cat3 <- as.numeric(par3) > cat4 <-as.numeric(par4) > cat5 <-as.numeric(par5) > x <- t(x) > x1<-as.numeric(x[,cat1]) > wf1<-as.character(x[,cat2]) > wf2 <- as.character(x[,cat3]) > bf1 <- as.character(x[,cat4]) > sid<- as.character(x[,cat5]) # author of ez changed within subjects variable name from sid to wid > xdf<-data.frame(x1,wf1, wf2, bf1, sid) > (V1<-dimnames(y)[[1]][cat1]) [1] "mean_rt" > (V2<-dimnames(y)[[1]][cat2]) [1] "cue" > (V3 <-dimnames(y)[[1]][cat3]) [1] "flanker" > (V4 <-dimnames(y)[[1]][cat4]) [1] "group" > (V5 <-dimnames(y)[[1]][cat5]) [1] "sid" > names(xdf)<-c(V1, V2, V3, V4, V5) > library(ez) Loading required package: car Loading required package: MASS Loading required package: nnet Loading required package: survival Loading required package: splines Loading required package: reshape Loading required package: plyr Attaching package: 'reshape' The following object(s) are masked from 'package:plyr': round_any Loading required package: ggplot2 Loading required package: grid Loading required package: proto Loading required package: stringr Loading required package: lme4 Loading required package: Matrix Loading required package: lattice Attaching package: 'Matrix' The following object(s) are masked from 'package:reshape': expand The following object(s) are masked from 'package:base': det Attaching package: 'lme4' The following object(s) are masked from 'package:stats': AIC > library(Cairo) > (ezout <- ezANOVA(data=xdf, dv=.(mean_rt), wid=.(sid), within=.(cue, flanker), between=.(group) ) ) $ANOVA Effect DFn DFd F p p<.05 ges 2 group 1 18 18.451541 4.353950e-04 * 0.07633660 3 cue 3 54 516.584172 1.006586e-39 * 0.89661468 4 group:cue 3 54 2.560143 6.444798e-02 0.04120918 5 flanker 2 36 1349.670671 1.403581e-34 * 0.92710687 6 group:flanker 2 36 8.778891 7.845825e-04 * 0.07640741 7 cue:flanker 6 108 5.199080 9.822379e-05 * 0.11447483 8 group:cue:flanker 6 108 6.372159 9.104291e-06 * 0.13677133 $`Mauchly's Test for Sphericity` Effect W p p<.05 3 cue 0.7821460 0.5345943 4 group:cue 0.7821460 0.5345943 5 flanker 0.8811975 0.3412892 6 group:flanker 0.8811975 0.3412892 7 cue:flanker 0.1737022 0.1254722 8 group:cue:flanker 0.1737022 0.1254722 $`Sphericity Corrections` Effect GGe p[GG] p[GG]<.05 HFe p[HF] 3 cue 0.8648304 1.157768e-34 * 1.0233424 1.006586e-39 4 group:cue 0.8648304 7.420939e-02 1.0233424 6.444798e-02 5 flanker 0.8938128 3.821945e-31 * 0.9858175 4.035698e-34 6 group:flanker 0.8938128 1.289950e-03 * 0.9858175 8.383459e-04 7 cue:flanker 0.6021943 1.534922e-03 * 0.7721198 4.702803e-04 8 group:cue:flanker 0.6021943 3.446798e-04 * 0.7721198 7.230072e-05 p[HF]<.05 3 * 4 5 * 6 * 7 * 8 * > > #Note: the /var/www/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab > load(file="/var/www/rcomp/createtable") > > a<-table.start() > nr <- nrow(ezout$ANOVA) > nc <- ncol(ezout$ANOVA) > a<-table.row.start(a) > a<-table.element(a,'Repeated Measures ANOVA', nc+1,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'effect', 1,TRUE) > a<-table.element(a,'Dfn',1,TRUE) > a<-table.element(a,'DFd', 1,TRUE) > a<-table.element(a, 'F', 1,TRUE) > a<-table.element(a,'p', 1,TRUE) > a<-table.element(a,'p<0.05', 1,TRUE) > a<-table.element(a, 'ges', 1,TRUE) # generalized eta-sq - was partial eta-sq in earlier version > a<-table.row.end(a) > for ( i in 1:nr){ + a<-table.row.start(a) + a<-table.element(a,ezout$ANOVA$Effect[i], 1, TRUE) + for(j in 2:nc){ + if ( j != 6) # author of ez reduced number of columns in output from 8 + a<-table.element(a,round(ezout$ANOVA[[j]][i], digits=3), 1, FALSE) + else a<-table.element(a, ezout$ANOVA[[j]][i], 1, FALSE) + } + a<-table.row.end(a) + } > a<-table.end(a) > table.save(a,file="/var/www/rcomp/tmp/14otw1328282022.tab") > a<-table.start() > nr <- nrow(ezout$Mauchly) > nc <- ncol(ezout$Mauchly) > a<-table.row.start(a) > a<-table.element(a,'Mauchlys Test for Sphericity', nc+1,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'effect', 1,TRUE) > a<-table.element(a,'W',1,TRUE) > a<-table.element(a,'p', 1,TRUE) > a<-table.element(a,'p<0.05', 1,TRUE) > a<-table.row.end(a) > for ( i in 1:nr){ + a<-table.row.start(a) + a<-table.element(a,ezout$Mauchly$Effect[i], 1, TRUE) + for(j in 2:nc){ + if (j != 4) + a<-table.element(a,round(ezout$Mauchly[[j]][i], digits = 3), 1, FALSE) + else + a<-table.element(a,ezout$Mauchly[[j]][i], 1, FALSE) + } + a<-table.row.end(a) + } > a<-table.end(a) > table.save(a,file="/var/www/rcomp/tmp/2q4dc1328282022.tab") > a<-table.start() > nr <- nrow(ezout$Spher) > nc <- ncol(ezout$Sphe) > a<-table.row.start(a) > a<-table.element(a,'Sphericity Corrections', nc+1,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > a<-table.element(a,'effect', 1,TRUE) > a<-table.element(a,'GGe',1,TRUE) > a<-table.element(a,'p[GG]', 1,TRUE) > a<-table.element(a,'p[GG]<0.05', 1,TRUE) > a<-table.element(a,'HFe', 1,TRUE) > a<-table.element(a,'p[HF]', 1,TRUE) > a<-table.element(a,'p[HF]<0.05', 1,TRUE) > a<-table.row.end(a) > for ( i in 1:nr){ + a<-table.row.start(a) + a<-table.element(a,ezout$Spher$Effect[i], 1, TRUE) + for(j in 2:nc){ + if ( ! ((j == 4) | (j == 7)) ) + a<-table.element(a,round(ezout$Spher[[j]][i], digits=3), 1, FALSE) + else + a<-table.element(a,ezout$Spher[[j]][i], 1, FALSE) + } + a<-table.row.end(a) + } > a<-table.end(a) > table.save(a,file="/var/www/rcomp/tmp/315yh1328282022.tab") > ezP.between<-ezPlot(data = xdf, dv = .(mean_rt), between = .(group), wid = .(sid), do_lines=FALSE, x_lab='group', y_lab='RT' , x=.(group)) > CairoPS(file="/var/www/rcomp/tmp/44ii31328282022.ps",onefile=TRUE,horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > print(ezP.between) > dev.off() null device 1 > ezstats_between<-ezStats(data = xdf, dv = .(mean_rt), between =.(group), wid = .(sid)) > a<-table.start() > nr <- nrow(ezstats_between) > nc <- ncol(ezstats_between) > a<-table.row.start(a) > a<-table.element(a,'Between Effects Comparisons', nc+1,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > for(i in 1:nc){ + a<-table.element(a, names(ezstats_between)[i], 1,TRUE) + } > a<-table.row.end(a) > for ( i in 1:nr){ + a<-table.row.start(a) + a<-table.element(a,ezstats_between[[1]][i], 1, TRUE) + for(j in 2:nc){ + a<-table.element(a,ezstats_between[[j]][i], 1, FALSE) + } + a<-table.row.end(a) + } > a<-table.end(a) > table.save(a,file="/var/www/rcomp/tmp/536ns1328282022.tab") > ezP.within<-ezPlot(data = xdf, dv = .(mean_rt), within = .(cue, flanker), wid = .(sid), do_lines=TRUE, x_lab='flanker', y_lab='RT' , x=.(flanker), split=.(cue), split_lab = 'cue') Note: model has only an intercept; equivalent type-III tests substituted. > CairoPS(file="/var/www/rcomp/tmp/6qlmu1328282022.ps",onefile=TRUE,horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) > print(ezP.within) > dev.off() null device 1 > ezstats_within <- ezStats(data = xdf, dv = .(mean_rt), within = .(cue, flanker), wid = .(sid)) Note: model has only an intercept; equivalent type-III tests substituted. > a<-table.start() > nr <- nrow(ezstats_within) > nc <- ncol(ezstats_within) > a<-table.row.start(a) > a<-table.element(a,'Within Effects Comparisons', nc+1,TRUE) > a<-table.row.end(a) > a<-table.row.start(a) > for(i in 1:nc){ + a<-table.element(a, names(ezstats_within)[i], 1,TRUE) + } > a<-table.row.end(a) > for ( i in 1:nr){ + a<-table.row.start(a) + a<-table.element(a,ezstats_within[[1]][i], 1, TRUE) + for(j in 2:nc){ + a<-table.element(a, ezstats_within[[j]][i], 1, FALSE) + } + a<-table.row.end(a) + } > a<-table.end(a) > table.save(a,file="/var/www/rcomp/tmp/7qp3g1328282022.tab") > try(system("convert tmp/44ii31328282022.ps tmp/44ii31328282022.png",intern=TRUE)) character(0) > try(system("convert tmp/6qlmu1328282022.ps tmp/6qlmu1328282022.png",intern=TRUE)) character(0) > > #-SERVER-vre.aston.ac.uk > > > > proc.time() user system elapsed 6.280 0.170 6.446