Update server.R

Based on feedback, further simplified the model.