demo/EBLUP2.R

data(baseball,package="dataBaseball")
attach(baseball)
library("sae")
resultML<-mseFH(hat.P~x1,hat.P*(1-hat.P)/45,method="ML")
resultML
DanielBonnery/SaeComputations documentation built on Jan. 24, 2020, 4:53 p.m.