Update Hartigan.m