Put plotting in cora_analysis.R