Some R codes to plot profiles curves