Titration procedure with rats using a nose poke response and tail shock