Nothing
#'The soft thresholding operator
#'
#'Function to solve the soft thresholding problem
#'@param x The data value
#'@param a The lambda value
#'@return The solution to the soft thresholding operator.
#'
S_func <- function(x, a) { # Soft Thresholding Operator
return((abs(x) - a) * sign(x) * (abs(x) > a))
}
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.