--- decode ---

Decode HEMatrix as an array,

decode(matrix, convert = TRUE, to.data.frame = FALSE)

Arguments

self:

(HEMatrix) - Input matrix.

convert:

(Optional: logical, default = TRUE) - If FALSE, return numpy array, else return array.

to.data.frame:

(Optional: logical, default = FALSE) - If TRUE, return data.frame

Value

array

Examples

if (FALSE) {
params <- heaan_sdk.HEParameter("FGb")
context <- heaan_sdk.Context(
     params,
     key_dir_path = key_dir_path,
     load_keys = "all",
     generate_keys = TRUE)
library(caret)
data(iris)
set.seed(34)
trainIndex <- createDataPartition(iris$Species,
             times = 1, p = 0.8, list = FALSE)
X_train <- iris[trainIndex, 1:4]
X_test <- iris[-trainIndex, 1:4]
y_train <- as.integer(iris[trainIndex, 5]) - 1
y_test <- as.integer(iris[-trainIndex, 5])- 1
classes <- c(0, 1, 2)
num_feature <- ncol(X_train)
batch_size <- 128
unit_shape <- (as.integer(c(batch_size,
             floor(py_to_r(context$num_slots) / batch_size))))
test <- encode_encrypt(
context,
X_test,
unit_shape,
target_level = 3L)
test <- decrypt(test)
decode(test)
}