bbeMCMCrecording(data_x, data_y, x, costpara, kerntype = c("Gaussian",
"Epanechnikov", "Quartic", "Triweight", "Triangular",
"Uniform"), num_batch = 50, M = 10000, step = 20,
sizep = 1.2)sizep.bbelogdensity, bbelogpriors, bbeloglikelihooddummy = bbewarmup(nrr(data_x), bbecost(data_x, data_y, nrr(data_x)), warm = 2)
bbeMCMCrecording(data_x, data_y, dummy$xh, dummy$cost, num_batch = 2, M = 4, step = 2)Run the code above in your browser using DataLab