# search by series name
s <- fetchKSSL(series='auburn')
# search by bounding-box
# s <- fetchKSSL(bbox=c(-120, 37, -122, 38))
# how many pedons
length(s)
# plot
par(mar=c(0,0,0,0))
plot(s, name='hzn_desgn', max.depth=150)
Run the code above in your browser using DataLab