varsでのベクトル自己回帰の結果をxtableでLaTeXに出力する

変数それぞれに対して係数の推定結果を出力することは可能*1。たとえばこんな感じ：

require(vars)
data(Canada)
var.canada <- VAR(Canada, p = 2, type = "none")
summary(var.canada)

ここまではvarsの機能。Canadaはe, prod, rw, Uの4変数からなるデータセット。たとえばUに関する回帰式の推定結果をLaTeXのtable形式に出力するにはxtableを使って以下のように行う。

require(xtable)
xtable(summary(var.canada$varresult$U))

*1:一度に全部の式を出力する方法があったら教えて下さい。