Update functions.R

update.eta