pi_est<-function(n){
cnt<-0
for(i in 1:n){
x<-runif(1,-1,1)
y<-runif(1,-1,1)
if(x^2+y^2<=1) cnt<-cnt+1
}
return(cnt/n*4)
}
控制台输入>pi_est(100000)
[1] 3.13576
R语言是一个开源、跨平台的科学计算和统计分析软件包，具有丰富多样、强大的的统计功能和数据分析功能，R语言是主要用于统计分析、绘图的语言和操作环境。R中的统计分析通过使用许多内置函数来执行。 这些函数大多数是R基础包的一部分。 这些函数将R向量作为输入和参数，并给出结果。
模式是一组数据中出现次数最多的值。 Unike平均值和中位数，模式可以同时包含数字和字符数据。
R语言没有标准的内置函数来计算模式。 因此，我们创建一个用户函数来计算R语言中的数据集的模式。该函数将向量作为输入，并将模式值作为输出。
