Description Usage Arguments Details Value See Also Examples
Create a cognostics object. To be used inside of the function passed to the cogFn
argument of makeDisplay
for each cognostics value to be computed for each subset.
1 2 3 |
val |
a scalar value (numeric, characer, date, etc.) |
desc |
a description for this cognostic value |
group |
optional categorization of the cognostic for organizational purposes |
type |
the desired type of cognostic you would like to compute (see details) |
defLabel |
should this cognostic be used as a panel label in the viewer by default? |
defActive |
should this cognostic be active (available for sort / filter / sample) by default? |
filterable |
should this cognostic be filterable? Default is |
sortable |
should this cognostic be sortable? |
log |
when being used in the viewer for visual univariate and bivariate filters, should the log be computed? Useful when the distribution of the cognostic is very long-tailed or has large outliers. Can either be a logical or a positive integer indicating the base. |
Different types of cognostics can be specified through the type
argument that will affect how the user is able to interact with those cognostics in the viewer. This can usually be ignored because it will be inferred from the implicit data type of val
. But there are special types of cognostics, such as geographic coordinates and relations (not implemented) that can be specified as well. Current possibilities for type
are "key", "integer", "numeric", "factor", "date", "time", "geo", "rel", "hier", "href".
object of class "cog"
makeDisplay
, cogRange
, cogMean
, cogScagnostics
, cogLoessRMSE
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | d <- stack(data.frame(EuStockMarkets))
d$time <- rep(as.numeric(time(EuStockMarkets)), 4)
d$year <- floor(d$time)
byIndexYear <- divide(d, by = c("ind", "year"))
cogFn <- function(x)
list(lormse = cogLoessRMSE(values ~ time, data = x, span = 0.3, degree = 2),
slope = cogSlope(values ~ time, data = x),
range = cogRange(x$values),
mean = cogMean(x$values),
max = cog(max(x$values, na.rm = TRUE), desc = "max value"))
applyCogFn(cogFn, byIndexYear[[1]])
library(lattice)
panelFn <- function(x)
xyplot(values ~ time, data = x,
panel = function(x, y, ...) {
panel.xyplot(x, y, ...)
panel.loess(x, y, span = 0.3,
degree = 2, evaluation = 200, col = "black")
})
vdbConn(tempfile(), autoYes = TRUE)
makeDisplay(byIndexYear, name = "ts_index_year",
cogFn = cogFn, panelFn = panelFn)
## Not run:
# sort and fiter the index/year panels by slope and loess RMSE
view(name = "ts_index_year")
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.