Create kyphosis.r