demo/artmap_letters.R

library(RSNNS)

data(snnsData)
trainData <- snnsData$artmap_train.pat
testData <- snnsData$artmap_test.pat

model <- artmap(trainData, nInputsTrain=70, nInputsTargets=5, nUnitsRecLayerTrain=50, nUnitsRecLayerTargets=26)
#updateFunc="ARTMAP_Synchronous"

model$fitted.values

predict(model, testData)

#summary(model)

Try the RSNNS package in your browser

Any scripts or data that you put into this service are public.

RSNNS documentation built on May 29, 2024, 4:37 a.m.