u014046115的专栏

测试一组数据是否来自某一泊松分布data <- rpois(n = 100, 20)mean <- mean(data)poisson.test(sum(data), length(data), mean)# Exact Poisson test# # data: sum(data) time base: length(data)# number of events = 2000,

getTargetPoint <- function(data, k, method = 'euclidean'){ #找第i个最远的点 #n,点的个数，即为distMatrix行数 getPos <- function(pos, distMatrix, n){ #得到第i个点离选出的点的距离最小值 i <- length(pos) + 1 getMin