Update call_GSE7553_cor.R

1