Nothing
#' Class tskrrTuneHeterogeneous
#'
#' The class tskrrTuneHeterogeneous represents a tuned Heterogeneous
#' \code{\link[xnet:tskrr-class]{tskrr}} model. It inherits from
#' the classes \code{\link[xnet:tskrrHeterogeneous-class]{tskrrHeterogeneous}}
#' and \code{\link[xnet:tskrrTune-class]{tskrrTune}}.
#'
#' @rdname tskrrTuneHeterogeneous-class
#' @name tskrrTuneHeterogeneous-class
#' @aliases tskrrTuneHeterogeneous
#' @exportClass tskrrTuneHeterogeneous
setClass("tskrrTuneHeterogeneous",
contains = c("tskrrTune", "tskrrHeterogeneous"))
validTskrrTuneHeterogeneous <- function(object){
lossval <- object@loss_values
lgrid <- object@lambda_grid
excl <- object@exclusion
onedim <- object@onedim
if(!onedim && any(names(lgrid) != c("k","g")))
return("lambda grid should be a list with two elements named k and g (in that order) for heterogeneous networks")
else if(onedim && any(names(lgrid) != "k") && length(lgrid) > 1)
return("in a one-dimensional search there should only be a single element named k in the lambda grid.")
if(nrow(lossval) != length(lgrid$k))
return(paste("Loss values should have",length(lgrid$k),"rows to match the lambda grid."))
if(!onedim && ncol(lossval) != length(lgrid$g))
return(paste("Loss values should have",length(lgrid$g),"columns to match the lambda grid."))
else if(onedim && ncol(lossval) != 1)
return(paste("Loss values should have one column in case of one-dimensional search."))
exclmatch <- match(excl, c("interaction","row","column","both"),
nomatch = 0L)
if(exclmatch == 0)
return("exclusion should be one of 'interaction', 'row', 'column' or 'both'")
if(object@replaceby0 && excl != "interaction")
return("replaceby0 can only be used with interaction exclusion")
else
return(TRUE)
}
setValidity("tskrrTuneHeterogeneous", validTskrrTuneHeterogeneous)
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.