Nothing
# helper functions so don't have to remember
# which dimension for which statistic
Ustar_filter_by <- function(he, wtp) {
he$Ustar[, he$k == wtp]
}
U_filter_by <- function(he, wtp) {
he$U[, he$k == wtp, ]
}
ib_filter_by <- function(he, wtp) {
he$ib[he$k == wtp, , ]
}
ol_filter_by <- function(he, wtp) {
he$ol[, he$k == wtp]
}
vi_filter_by <- function(he, wtp) {
he$vi[, he$k == wtp]
}
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.