added analyze.R file