Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- gesture.neural.model = read.csv("gesture.training.csv", header=TRUE, sep=" ", quote="\"")
- str(gesture.neural.model)
- max.values = apply(gesture.neural.model, 2, max)
- min.values = apply(gesture.neural.model, 2, min)
- gesture.neural.model.scaled = as.data.frame(scale(gesture.neural.model, center=min.values, scale=max.values - min.values))
- require(neuralnet)
- library(neuralnet)
- NN = neuralnet(okay ~ PC1 + PC2 + PC3 + PC4 + PC5 + PC6 + PC7 + PC8 + PC9 + PC10, gesture.neural.model.scaled, threshold=0.05, learningrate=0.001, hidden=c(1,3), linear.output=TRUE, startweights=rep(0, 14))
- plot(NN)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement