# NOT RUN {
kprod(diag(2), t(ones(2)))
kprod(t(ones(2)), diag(2))
kprod(diag(2), t(ones(2)), t(ones(2)))
kprod(t(ones(2)), diag(2), t(ones(2)))
kprod(t(ones(2)), t(ones(2)), diag(2))
# cf. aoki, hara, and takemura p.13
rbind(
kprod(diag(2), t(ones(2))),
kprod(t(ones(2)), diag(2))
)
# }
Run the code above in your browser using DataLab