# NOT RUN {
data(ctd)
new <- renameData(ctd, "temperature", "temperature68")
new <- oceSetData(new, name="temperature",
                  value=T90fromT68(new[["temperature68"]]),
                  unit=list(unit=expression(degree*C),scale="ITS=90"))
# }
Run the code above in your browser using DataLab