R/layers-sequence.R

In joeddav/CNTK-R: R Interface to the Microsoft Cognitive Toolkit (CNTK)

#' Delay
#'
#' @param init (scalar or matrix or initializer, defaults to
#' init_glorot_uniform()) – initial value of weights Wial_state
#' @param name string (optional) the name of the Function instance in the network
#'
#' @export
Delay <- function(T = 1, initial_state = 0, name = '') {
	cntk$layers$sequence$delay(
		T = T,
		initial_state = to_int(initial_state),
		name = name
	)
}

#' Fold
#'
#' @param folder_function
#'
#' @param go_backwards
#' @param init (scalar or matrix or initializer, defaults to
#' init_glorot_uniform()) – initial value of weights Wial_state
#' @param return_full_state
#' @param name string (optional) the name of the Function instance in the network
#'
#' @export
Fold <- function(folder_function, go_backwards, initial_state = 0,
				 return_full_state = FALSE, name = '') {
	cntk$layers$sequence$Fold(
		folder_function,
		go_backwards,
		initial_state = to_int(initial_state),
		return_full_state = return_full_state,
		name = name
	)
}

#' Past Value Window
#'
#' @param window_size
#' @param axis
#' @param go_backwards
#' @param name string (optional) the name of the Function instance in the network
#'
#' @export
PastValueWindow <- function(window_size, axis, go_backwards = FALSE, name='') {
	cntk$layers$sequence$PastValueWindow(
		to_int(window_size),
		to_int(axis),
		go_backwards = go_backwards,
		name = name
	)
}

#' Recurrence
#'
#' @param step_function
#' @param go_backwards
#' @param init (scalar or matrix or initializer, defaults to
#' init_glorot_uniform()) – initial value of weights Wial_state
#' @param return_full_state
#' @param name string (optional) the name of the Function instance in the network
#'
#' @export
Recurrence <- function(step_function, go_backwards = FALSE, initial_state = 0,
					   return_full_state = FALSE, name = '') {
	cntk$layers$Recurrence(
		step_function,
		go_backwards = go_backwards,
		initial_state = initial_state,
		return_full_state = return_full_state,
		name = name
	)
}

#' Recurrence From
#'
#' @param step_function
#'
#' @param go_backwards
#' @param return_full_state
#' @param name string (optional) the name of the Function instance in the network
#'
#' @export
RecurrenceFrom <- function(step_function, go_backwards, return_full_state,
						   name = '') {
	cntk$layers$sequence$RecurrenceFrom(
		step_function,
		go_backwards = go_backwards,
		return_full_state = return_full_state,
		name = name
	)
}

#' Unfold From
#'
#' @param generator_function
#' @param until_predicate
#' @param length_increase
#' @param name string (optional) the name of the Function instance in the network
#'
#' @export
UnfoldFrom <- function(generator_function, until_predicate = NULL,
					   length_increase = 1, name = '') {
	cntk$layers$sequence$UnfoldFrom(
		generator_function,
		until_predicate = until_predicate,
		length_increase = length_increase,
		name = name
	)
}