data(baseball,package="dataBaseball")
attach(baseball)
library("sae")
resultML<-mseFH(hat.P~x1,hat.P*(1-hat.P)/45,method="ML")
resultML
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.