analytic.R