initial.values.1 <- dump.format(list("mean", "sd", "lambda"), list("1", "0.1", c(4,2,7,0,6,9,1,4,12,1)))
initial.values.2 <- dump.format(list("mean", "sd", "lambda"), list("10", "10", c(4,2,7,0,6,9,1,4,12,1)))
data <- dump.format(list("N", "Count"), list("10", c(4,2,7,0,6,9,1,4,12,1)))
Run the code above in your browser using DataLab