powered by
airRho(temperature, pressure, humidity)
degC <- seq(0,30,length.out=100) p <- seq(98,102,length.out=100) * 1e3 contour(x=degC, y=p, z=outer(degC,p,airRho), labcex=1)
Run the code above in your browser using DataLab