mlptrain(inp,neurons,out,weight=c(),dist=c(),alfa=0.2,it=200,online=TRUE,
permute=TRUE,thresh=0,dthresh=0.1,actfns=c(),diffact=c(),visual=TRUE, ...)
x<-matrix(c(1,1,0,0,1,0,1,0),4,2)
y<-matrix(c(0,1,1,0),4,1)
neurons<-4
data<-mlptrain(x,neurons,y,it=4000);
mlp(x,data$weight,data$dist,data$neurons,data$actfns)
Run the code above in your browser using DataLab