R语言中怎么画自定义函数图像

问题描述:

R语言中怎么画自定义函数图像
p=function(n,m){
N=10^6
x=c(rep(0,5),1)
z=numeric(N)
for(i in 1:N){
y=sample(x,n,replace=T)
z[i]=sum(y)>=m
}
return(sum(z)/N)
}
当m=2,3,4时,把这三函数在同一个坐标化成散点图,然后拟合曲线!

用curve(function,add=T)试试