Nothing
### R code from vignette source 'iapws.Rnw'
###################################################
### code chunk number 1: iapws.Rnw:35-36 (eval = FALSE)
###################################################
## install.packages("iapws")
###################################################
### code chunk number 2: iapws.Rnw:43-44
###################################################
library(iapws)
###################################################
### code chunk number 3: iapws.Rnw:49-50
###################################################
iapws95(c("p", "h"), rho = 800, t = seq(573, 623, by = 10))
###################################################
### code chunk number 4: iapws.Rnw:63-65
###################################################
iapws95(c("rho", "h"), p = 0.101325, # atmospheric pressure
t = seq(293, 373, by = 20))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.