# NOT RUN {
data(seawaterLiNaK)
trend <- transTrend(trans = seawaterLiNaK$Lithium.1, model = 'paredes')
transPlot(trans = seawaterLiNaK$Lithium.1, trend = trend,
secondary = seawaterLiNaK$Sodium.1,
tertiary = seawaterLiNaK$Potassium.1)
transPlot(trans = seawaterLiNaK$Lithium.1, trend = trend,
secondary = seawaterLiNaK$Sodium.1,
tertiary = seawaterLiNaK$Potassium.1, bw = TRUE)
# }
Run the code above in your browser using DataLab