Nothing
setMethod("SI", signature(object = "Nri", i = "missing", j = "missing"),
function(object, i, j)
return(.SI(object@SI))
)
setMethod("SI", signature(object = "Nri", i = "ANY", j = "missing"),
function(object, i, j)
return(object@SI[i,])
)
setMethod("SI", signature(object = "Nri", i = "missing", j = "ANY"),
function(object, i, j)
return(object@SI[,j])
)
setMethod("SI", signature(object = "Nri", i = "ANY", j = "ANY"),
function(object, i, j)
return(object@SI[i,j])
)
setReplaceMethod("SI", signature(object = "Nri", value = "matrix"),
function(object, value)
{
object@SI <- new(".SI", value)
return(object)
}
)
setReplaceMethod("SI", signature(object = "Nri", value = "data.frame"),
function(object, value)
{
object@SI <- new(".SI", value)
return(object)
}
)
setReplaceMethod("SI", signature(object = "Nri", value = "ANY"),
function(object, value)
{
object@SI <- new(".SI", value)
return(object)
}
)
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.