Dear R-team,
I have written this code for calculation my data file. But there shows
'subscript out of bounds’.
> computeResponse <- function(data){
+ dataodd <- data[-(1:18),]
+ dataodd <- dataodd[seq(1,nrow(dataodd), 2),]
+ hitsodd <- table(factor(dataodd[,5]), factor(dataodd[,15]))[2,2]
+ missesodd <- table(factor(dataodd[,5]), factor(dataodd[,15]))[2,1]
+ crejectionsodd <- table(factor(dataodd[,5]), factor(dataodd[,15]))[1,2]
+ falsealarmodd <- table(factor(dataodd[,5]), factor(dataodd[,15]))[1,1]
+ return(coordinationodd <- data.frame(hitsodd, missesodd,crejectionsodd,
falsealarmodd))
+ }
>
> filenames <- list.files(full.names=TRUE)
> filelist <- lapply(filenames, read.table, fill = TRUE, header = FALSE, sep =
> "\t")
> coordinationodd <- lapply(filelist, computeResponse)
Error in table(factor(dataodd[, 5]), factor(dataodd[, 15]))[2, 2] :
subscript out of bounds
> coordinationodd <- Reduce(rbind, coordinationodd)
Error in Reduce(rbind, coordinationodd) :
object 'coordinationodd' not found
Could you please tell me how I can fix this problem?
Best,
Samsad
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
