Nerual Network program for R