data(Canadianlynx)
Regressor <- matrix(
c( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 1, 2, 1, 3, 1, 2, 3,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 2, 3, 1, 2, 3,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 3 ),
3,19, byrow=TRUE)
z <- bsubst(Canadianlynx, 2, 12, 19, Regressor)
z$arcoef.bay
Run the code above in your browser using DataLab