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.Alloc (alloca)
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 ())