求解释这个程序中斜体字括号中都是什么意思啊
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]]