Update esprimo.R