# NOT RUN {
data(RadiosondeA)
aPs<-RadiosondeA[,1]*100
aTs<-C2K(RadiosondeA[,3])
aws<-RadiosondeA[,6]/1000
capeCin<-CAPE_CIN(PlowTop=98000,precoolType="adiabatic",
Ps=aPs,Ts=aTs,ws=aws,doLog=0,deltaP=5,
getLiftedBack=TRUE,upToTop=TRUE)
#How to add a line to the plot
stuveA<-stuve_diagram(Pres = aPs/100,Temp=aTs-273.15)
lines(capeCin$Tl-273.15,capeCin$Pl/100,col="red",lwd=2)
# }
Run the code above in your browser using DataLab