checkNNGradients<-function(lambda){
  
  input_layer_size<-3
  hidden_layer_size<-5
  num_labels<-3
  m<-5
  
  numgrad<-computeNumericalGradient(nnCostFunction,nn_params)
  
  return(numgrad)
  
}