chl27 <- sfbayChla[, 's27']
seaKen(chl27)
seaRoll(chl27)
seaRoll(chl27, plot = TRUE, legend = TRUE)
chl <-sfbayChla
seaKen(mts2ts(chl)) # too much missing data
seaKen(mts2ts(chl, seas = 2:4)) # better when just Feb-Apr, spring
# bloom period, but last 4 stations still missing too much data.
seaKen(mts2ts(chl[, 1:12], 2:4)) # more reliable result
Run the code above in your browser using DataLab