coexpAna.R changed. Incomplete