Update compare.spine.R