setwd( "C:/Users/Ken/Desktop/bigr/exercises" ) pheno <- read.csv("example-pheno.csv") #or pheno <- read.csv("http://faculty.washington.edu/kenrice/sisg/example-pheno.csv") #or pheno <- read.csv(file.choose()) # after downloading the files! head(pheno) str(pheno) pheno2 <- read.table("example-pheno.txt",header=TRUE) head(pheno2) pheno3 <- read.csv("example-pheno.csv", row.names = 1) head(pheno3) summary(pheno) summary(pheno2) identical(pheno$sex, pheno2$sex) all( pheno$sex == pheno2$sex ) identical(pheno$dbp, pheno2$dbp) identical(pheno, pheno2) identical(pheno2, pheno3) #removing elements, if you need to rownames(pheno) <- pheno$X pheno$X <- NULL head(pheno) head(pheno2)