raw/Create_baseball.R

In DanielBonnery/dataBaseball: X

X=t(matrix(c(
  0.400,   0.314,     8142,     0.352, 
  0.378,   0.303,     7542,     0.306, 
  0.178,   0.256,       86,     0.302, 
  0.222,   0.250,     2065,     0.296, 
  0.356,   0.275,     4826,     0.283, 
  0.200,   0.264,     3210,     0.279, 
  0.311,   0.246,     2244,     0.276, 
  0.311,   0.244,      454,     0.274, 
  0.244,   0.281,     5658,     0.267, 
  0.289,   0.248,     2753,     0.266, 
  0.222,   0.255,     2281,     0.261, 
  0.222,   0.257,     1216,     0.258, 
  0.222,   0.271,      888,     0.251, 
  0.333,   0.255,     1139,     0.238, 
  0.244,   0.244,     1967,     0.233, 
  0.222,   0.234,      291,     0.225, 
  0.267,   0.118,       51,     0.224, 
  0.156,   0.249,     3514,     0.183),4,18))
baseball<-data.frame(
  Player=c('Clemente',
           'F.Robins',
           'Munson',  
           'Scott',   
           'F.Howard',
           'Campaner',
           'Spencer',
           'Berry',
           'Swoboda',
           'Kessinge',
           'E.Rodrig',
           'Williams',
           'Unser',
           'Johnston',
           'Santo',
           'Petrocel',
           'L.Alvara',
           'Alvis'),hat.P=X[,1],x1=X[,2],x2=X[,3],P=X[,4])
save(baseball,"baseball.rda")