Nothing
'band_mean' <- function(obj) {
res <- band_stat(obj)$mean
names(res) <- bandname(obj)
res
}
'band_min' <- function(obj) {
res <- band_stat(obj)$min
names(res) <- bandname(obj)
res
}
'band_max' <- function(obj) {
res <- band_stat(obj)$max
names(res) <- bandname(obj)
res
}
'band_sum' <- function(obj) {
res <- band_stat(obj)$sum
names(res) <- bandname(obj)
res
}
'band_sd' <- function(obj) {
res <- band_stat(obj)$sd
names(res) <- bandname(obj)
res
}
'band_n' <- function(obj) {
res <- band_stat(obj)$n
names(res) <- bandname(obj)
res
}
'band_nNA' <- function(obj) {
res <- band_stat(obj)$nNA
names(res) <- bandname(obj)
res
}
'band_quantile' <- function(obj,...) {
res <- apply(ursa_value(obj),2,simplify=FALSE,function(x) quantile(na.omit(x),...))
res <- do.call(rbind,res)
rownames(res) <- names(obj)
res
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.