140531-iss001: modify copy_beta, rename pen->r -> pen->d