DeoluA · June 12, 2017 20:48
diff --git a/softmax.R b/softmax.R
 ## from http://tr.im/hH5A
 logsumexp <- function (x) {
  y = max(x)
  y + log(sum(exp(x - y)))
 }

 softmax <- function (x) {
  exp(x - logsumexp(x))
 }
	## from http://tr.im/hH5A
	logsumexp <- function (x) {
	y = max(x)
	y + log(sum(exp(x - y)))
	}

	softmax <- function (x) {
	exp(x - logsumexp(x))
	}