Create plot_scatter_1st.smd.frank.R