# generating a pair of random vectors
set.seed(1)
data1 <- rbp(n = 20, m0 = 1, m1 = 1, m2 = 1)
lik.bp(xvec = data1[, 1], yvec = data1[ ,2],
m0 = 1, m1 = 1, m2 = 1)
bp(xvec = data1[,1], yvec = data1[,2])
Run the code above in your browser using DataLab