TeethNigrogen.R modified