Create call_GSE7553_cor.R

input following lines

genelist    <- c("ESRRA", "ESRRG", "MITF","SNAI2","HMG20A","ZEB2", "AKT1", "AKT2", "AKT3")

call_GSE_7553_cor(genelist)