Alex analysis.R change