#' Debug Model
#'
#' @param model
#' @param in_stream
#' @param out
#' @param exit_func
#'
#' @export
debug_model <- function(model, in_stream = sys$stdin, out = sys$stdout,
exit_func = sys$exit) {
cntk$debugging$debug$debug_model(
model,
in_stream = in_stream,
out = out,
exit_func = exit_func
)
}
#' Save As Legacy Model
#'
#' @param root_op
#' @param filename
#'
#' @export
save_as_legacy_model <- function(root_op, filename) {
cntk$debugging$debug$save_as_legacy_model(root_op, filename)
}
#' Set Checked Mode
#'
#' @param enable
#'
#' @export
set_checked_mode <- function(enable) {
cntk$debugging$debug$set_checked_mode(enable)
}
#' Set Computation Network Trace Level
#'
#' @param level
#'
#' @export
set_computation_network_trace_level <- function(level) {
cntk$debugging$debug$set_computation_network_trace_level(to_int(level))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.