Update getCI.R