test for sperical function matching R values