Nothing
#source('ForestUtils.R')
##### SHOULD BE MADE IN C++
DoRowPermutation <- function(size, row_permutation)
{
row_names = 0
if(length(row_permutation) == size[1])
{
v = vector(mode="numeric", length=0)
for(i in 1:length(row_permutation))
{
val = -row_permutation[i]
index = toString(val)
v[index] = i
}
row_names <- v
}
else
{
cat("No row permuation.")
# Name rows and columns.
row_names <- CreateRowNames(size[1])
}
return (row_names)
}
##### SHOULD BE MADE IN C++
DoColPermutation <- function(size, col_permutation)
{
col_names = 0
if(length(col_permutation) == size[2])
{
v = vector(mode="numeric", length=0)
for(i in 1:length(col_permutation))
{
val = -col_permutation[i]
index = toString(val)
v[index] = size[2] - (i - 1)
}
col_names <- v
plane_col_names <- v
}
else
{
cat("No col permuation.\n")
# Name rows and columns.
col_names <- CreateColNames(size[2])
plane_col_names <- col_names
}
return (col_names)
}
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.