Update projection.R