R/latent_heat_H2O.R

latent_heat_H2O <-
function(Temps){
    Temps2<-na.omit(Temps)
    nelems<-length(Temps2)
    outvals<-.C("latent_heat_H2O_Rworld",as.double(Temps2),
    	as.integer(nelems),result=double(nelems))
    Temps[!is.na(Temps)]<-outvals[["result"]]
    return(Temps)
}

Try the aiRthermo package in your browser

Any scripts or data that you put into this service are public.

aiRthermo documentation built on May 1, 2019, 9:24 p.m.