Update GTDpow.R