Create compare.spine.R