update comparecode.R