Nothing
setMethod("name", signature = "NormType", function(object) object@name)
setReplaceMethod("name", signature = "NormType", function(object,value)
{object@name <- value; object})
setMethod("fct", signature = "NormType", function(object) object@fct)
setReplaceMethod("fct", signature = "NormType", function(object,value)
{object@fct <- value; object})
setMethod("QuadForm", signature = "QFNorm", function(object) object@QuadForm)
setReplaceMethod("QuadForm", signature = "QFNorm", function(object,value)
{object@QuadForm <- value;
object@fct <- function(x) QuadFormNorm(x, A=value)
object})
NormType <- function(name = "EuclideanNorm", fct = EuclideanNorm){
new("NormType", name = name, fct = fct)}
QFNorm <- function(name = "norm based on quadratic form",
QuadForm = PosSemDefSymmMatrix(matrix(1))){
force( A0 <- QuadForm)
new("QFNorm", name = name, fct = function(x) QuadFormNorm(x, A= A0),
QuadForm = QuadForm)}
InfoNorm <- function(){A <- PosSemDefSymmMatrix(matrix(1))
new("InfoNorm", name = "Information matrix Norm",
fct = function(x) QuadFormNorm(x, A = A),
QuadForm = A)}
SelfNorm <- function(){A <- PosSemDefSymmMatrix(matrix(1))
new("SelfNorm", name = "Information matrix Norm",
fct = function(x) QuadFormNorm(x, A = A),
QuadForm = A)}
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.