[R] Hey guys

[arun]

Hi,
Try:
dat1<- t(dat[,-1]) 
 colnames(dat1) <- dat[,1]

covmat <- cov(dat1)

A.K.

I'm running into this error and I'm not sure how fix it 
Error: is.numeric(x) || is.logical(x) is not TRUE 

This is my data frame 
geneExpression_Lab10.txt
This is the homework instructions in case you want to see 
Lab10.pdf

This is my code 

dat <-read.delim("~/Dropbox/Homework/R Studio/geneExpression_Lab10.txt", header=F) 
dat <- as.matrix(dat) 
dat <- t(as.matrix(dat)) 
covmat <-cov(dat) #Error: is.numeric(x) || is.logical(x) is not TRUE 
eigvec <- eigen(covmat)$vectors 
eigval <- eigen(covmat)$values 
eigvec 
adjusted.dat <- sapply(1:ncol(dat), function(i) dat[,i]- mean(dat[,i])) 
new.dat <- adjusted.dat %*% eigvec 
plot(new.dat) 
cov(new.dat)