Update calc.zeng.R