Nothing
rowMaxs <- function(x)
{
if(class(x) == "matrix")
{
.Call(.C_rowMaxs, x)
}
else
{
.Call(.C_rowMaxs, as.matrix(x))
}
}
colMaxs <- function(x)
{
if(class(x) == "matrix")
{
.Call(.C_colMaxs, x)
}
else
{
.Call(.C_colMaxs, as.matrix(x))
}
}
rowMins <- function(x)
{
if(class(x) == "matrix")
{
.Call(.C_rowMins, x)
}
else
{
.Call(.C_rowMins, as.matrix(x))
}
}
colMins <- function(x)
{
if(class(x) == "matrix")
{
.Call(.C_colMins, x)
}
else
{
.Call(.C_colMins, as.matrix(x))
}
}
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.