Nothing
setClassUnion("list.null", c("list","NULL"))
setOldClass(c('data.frame'))
setOldClass(c('data.table', 'data.frame'))
setClass("SGP", representation(Data="data.table", Data_Supplementary="list.null", Names="list.null", SGP="list.null", Summary="list.null", Version="list.null"))
.Valid.SGP <- function(object) {
out <- NULL
## RUN A SET OF CHECKS ON THE SPECIFIED VARIABLES TO ENSURE THAT THE
## SCORES ARE WITHIN ACCEPTABLE LIMITS AND THE VARIABLES HAVE THE
## PROPER VARIABLE TYPE
if (is.null(out)) out <- TRUE
return(out)
}
setValidity("SGP", .Valid.SGP)
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.