module Bindings.Fann.Training where
import Foreign.Ptr (Ptr,FunPtr,plusPtr)
import Foreign.Ptr (wordPtrToPtr,castPtrToFunPtr)
import Foreign.Storable
import Foreign.C.Types
import Foreign.C.String (CString,CStringLen,CWString,CWStringLen)
import Foreign.Marshal.Array (peekArray,pokeArray)
import Data.Int
import Data.Word
import Bindings.Fann.DataStructures
foreign import ccall "fann_train" c'fann_train
:: Ptr C'fann -> Ptr CFloat -> Ptr CFloat -> IO ()
foreign import ccall "&fann_train" p'fann_train
:: FunPtr (Ptr C'fann -> Ptr CFloat -> Ptr CFloat -> IO ())
foreign import ccall "fann_test" c'fann_test
:: Ptr C'fann -> Ptr CFloat -> Ptr CFloat -> IO (Ptr CFloat)
foreign import ccall "&fann_test" p'fann_test
:: FunPtr (Ptr C'fann -> Ptr CFloat -> Ptr CFloat -> IO (Ptr CFloat))
foreign import ccall "fann_get_MSE" c'fann_get_MSE
:: Ptr C'fann -> IO CFloat
foreign import ccall "&fann_get_MSE" p'fann_get_MSE
:: FunPtr (Ptr C'fann -> IO CFloat)
foreign import ccall "fann_reset_MSE" c'fann_reset_MSE
:: Ptr C'fann -> IO ()
foreign import ccall "&fann_reset_MSE" p'fann_reset_MSE
:: FunPtr (Ptr C'fann -> IO ())