#Statistics 1, Assignment 2
library(psych)
working_memory < -read.table("DAA.02.TXT", header=T)
head(working_memory)
groupdes <- subset(working_memory, subset=(cond=="des"))
groupaer <- subset(working_memory, subset=(cond=="aer"))
noconddes <- groupdes[3:10]
nocondaer <- groupaer[3:10]
describe(noconddes)
cor(noconddes)
describe(nocondaer)
cor(nocondaer)