Rosenblatt's Perceptron implemented in R with gradient descent