Change cddar function in cl package