# clear workspace

rm(list=ls())

# read in brain data

brain <- read.table("C:\\Documents and Settings\\Admin\\Desktop\\brain_size_data.txt", header = T, sep="\t")


#look at dataset


names(brain)
dim(brain)
brain[1:10,]
table(brain$Gender)

#subset by gender

brainFemale <- brain[brain$Gender == "Female",]
brainMale <- brain[brain$Gender == "Male",]


#look at summary statistics by gender

summary(brainFemale)
summary(brainMale)