Update UCL.R

still more changes