y      Proximity   Time    Knowledge     Test     Purchase Service
1     8            4        2        2          1        3
2     7            2        2        2          2        2
3     9            1        4        2          1        3
4     7            2        1        2          1        1

y = con$Buy
   x = c[,4:9]
   df = list(y=y,X=x)
   R = 10000
   mcmc1 = list(R = R)
   try1 = runiregGibbs(df, Mcmc = mcmc1)

Error: not compatible with requested type