R语言，使用curve函数生成偏正态曲线，如何print出频度最高的值？

Question

代码如下> data<-read.csv("路径") > cData<-as.vector(data) > xData <- as.numeric(unlist(cData)) > curve(dnorm(x,mean(xData),sd(xData)),xlim=c(0,26.3),col="blue",lwd=3)问题：如何用print函数显示出如图中，频度最高对应的x值？

Answer 1

如果是已知的概率分布，可以先把密度函数赋值到一个变量（比如叫f）里，然后：curve(f,add=