source('/media/passport/research/cooperation/tft_memory/groupsize_interference/5_final_RR/Rwork/stevens_rcode.R')
source('/media/passport/research/cooperation/tft_memory/groupsize_interference/5_final_RR/Rwork/stevens_rcode.R', echo=TRUE)
source('/media/passport/research/cooperation/tft_memory/groupsize_interference/5_final_RR/Rwork/stevens_rcode.R', echo=TRUE)
names.s <- data.frame("name",0)
names(names.s) <- c("Group.1", "mean.*")
for(i in 1:max(as.numeric(levels(all.data$Subject)))) {
subjdata <- subset(all.data, Subject == i)
names.tmp <- aggregate(x = 100 * subjdata$Incorrect, by = list(subjdata$PartnerName),
FUN = mean, na.rm = T)
names.s <- rbind(names.s, names.tmp)
}
names(names.s) <- c("names", "error")
View(names.s)
View(names.tmp)
