## stupid example, showing naming of results
names(apply.shrink(depthloc$z,
list(a=round(depthloc$lat), b=round(depthloc$lon)), mean))
names(apply.shrink(depthloc$z, list(round(depthloc$lat),
round(depthloc$lon)), mean, names = c("a", "b", "z")))
Run the code above in your browser using DataLab