用R语言做非参数