Nothing
#' Class "Weights"
#'
#' @description An S4 class representing weights for AHP calculation. Each value in \code{numeric} vector
#' represents one weight.
#'
#' @slot weights Object of class \code{numeric} containing weights.
#'
#' @export
setClass(
Class="Weights",
slots = c(
weights = "numeric"
),
validity=function(object)
{
if(!(all.equal(sum(object@weights),1, tolerance=0.000001))){
return(paste("Sum of weights is not equal to 1. The sum is ", sum(object@weights), ".", sep=""))
}
return(TRUE)
}
)
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.