求解释这个程序中斜体字括号中都是什么意思啊
myL<-function(p,x){
return(x*log(p)+(10000-x)*log(1-p))
}
y<-rbinom(1,10000,0.5)
pHat<-optimize(f=myL,x=y,c(0,1),maximum=T)
pHat
还有这个程序都是什么意思啊,求解释!
tmpF<-function(a,x){
n<-length(x)
mu<-a[1]
sigma<-a[2]
f<-n*log(sigma)-sum((x-mu)^2/(2*sigma)^2)
return(-f)
}
aHat<-optim(par=c(0,2),fn=tmpF,x=x)
aHat[[1]]