wby.phase1 <- ss.data.wby[, 1:35]
wb.limits <- climProfiles(profiles = wby.phase1,
x = ss.data.wbx,
smoothprof = FALSE,
smoothlim = FALSE)
plotProfiles(profiles = wby.phase1,
x = ss.data.wbx,
cLimits = wb.limits)
Run the code above in your browser using DataLab