给出一组数值，用对数极大似然函数进行参数估计，不用专门的函数，先大概给出参数mu和sigma范围，然后希望通过画出一个3D可视图进行观测

data=seq(-5,5,0.1)
mu<-seq(-5,5,0.1)
sigma<-(1,10,0.1)

f<-function(mu,sigma)
{
out<-sum(dnorm(x=1,mean=mu,sd=sigma,log=T))
}
z<-outer(mu,sigma,f)
persp(mu,sigma,z)

运行z时总是会提示Error in outer(mu, sigma, lognorm) :
  dims [product 5151] do not match the length of object [1]

求大神帮忙解答