convertIMAGE <- function(x) {
w <- readSource("EDGAR",subtype="HFC")
w[is.na(w)] <- 0
w <- dimSums(w[,2005,],dim=3)["ATA",,,invert=TRUE]
y <- toolAggregate(x, "regionmappingIMAGE.csv", weight=w)
y <- toolCountryFill(y,fill=0)
return(y)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.