##---- Should be DIRECTLY executable !! ----##-- ==> Define data, use random,##-- or do help(data=index) for the standard data sets.## The function is currently defined asfunction (Ta,RH){if (Ta>0){Dampfd2=RH*SVPwater(Ta)}else{Dampfd2=RH*SVPice(Ta)}return(Dampfd2)}