Train (elm_playground.Train)

type history = {

epoch : int;
training : float;
held_out : float;

}

val split : 
  ?part:float ->
  Backprop.example list ->
  Backprop.example list * Backprop.example list

val epoch : 
  ?seed:int ->
  ?rate:float ->
  ?batch:int ->
  Net.t ->
  Backprop.example list ->
  Net.t

val run : 
  ?epochs:int ->
  ?rate:float ->
  ?decay:float ->
  ?batch:int ->
  ?seed:int ->
  ?held:Backprop.example list ->
  Net.t ->
  Backprop.example list ->
  Net.t * history list

val accuracy : 
  Net.t ->
  Backprop.example list ->
  answer:(float array -> int) ->
  float

val best : float array -> int

val one_hot : int -> int -> float array