# 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