fixprec.R