td.ks <- function(tdf, col, thresh = 0.05) {
if (!is.td.data.frame(tdf))
stop("'tdf' is not a td data frame")
if (missing(col) || !nchar(col))
stop("'col' not specified.")
if (thresh <= 0 || thresh >= 1)
stop("'thresh' value must be greater than 0 and less than 1.")
query <- .td.genks(tdf, col, thresh)
df <- tdQuery(query)
return(df)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.