R: Optimization problem with equal coefficients

Question

I would like to optimize a simple function such as:

max = a1 * x1 + a2 * x2 + a3 * x3 

where the x\'