# NOT RUN {
data(seawaterLiNaK)
# Transport data frames and transport NLS regresions must be in lists
lithium <- list(seawaterLiNaK$Lithium.1, seawaterLiNaK$Lithium.2)
sodium <- list(seawaterLiNaK$Sodium.1, seawaterLiNaK$Sodium.2)
potassium <- list(seawaterLiNaK$Potassium.1, seawaterLiNaK$Potassium.2)
trend <- list(transTrend(trans = seawaterLiNaK$Lithium.1),
transTrend(trans = seawaterLiNaK$Lithium.2))
transPlotWR(trans = lithium, trend = trend, secondary = sodium,
tertiary = potassium, bw = TRUE)
# }
Run the code above in your browser using DataLab