# take a sample sounding profile:
data("sounding_vienna")
attach(sounding_vienna)
# draw empty Skew-T plot:
skewt_plot(temp_stripes = TRUE, close_par = FALSE)
# draw line for dew-point temperature:
skewt_lines(dpt, pressure, type = 'l', col = 'forestgreen', lwd = 2.5)
# draw line for air temperature:
skewt_lines(temp, pressure, type = 'l', col='red', lwd = 2.5)
Run the code above in your browser using DataLab