####################Correlation Study#####################
# load data
data(correlation.data)
# Read the expression values
Y<-exprs(correlation.data)
# Read the phenotype
x<-pData(correlation.data)
x[,1]
#Pearson Test
row.pearson(Y,x[,1])
Run the code above in your browser using DataLab