finalfitというパッケージで回帰モデルの結果を要約するコードでエラーメッセージが出ました

前提・実現したいこと

finalfitという要約や回帰分析の結果を表にまとめてくれるパッケージを試して見たいと思い、
URLに記載されているコードを走らせてみたところ、
変数の要約（テーブル）に関するコードは走ったのですが、
回帰モデルの結果を最終テーブルの形式で要約するコードを実装するときに
以下のエラーメッセージが発生しました。

どうしたらいいのかお教えいただけますでしょうか。
よろしくお願いいたします。

発生している問題・エラーメッセージ

> explanatory = c("age.factor", "sex.factor", "obstruct.factor", "perfor.factor")
> dependent = "mort_5yr"
> colon_s %>%
+   finalfit(dependent, explanatory) -> t3
 get(ctr, mode = "function", envir = parent.frame()) でエラー: 
   変数 'contr.Treatment' （モード 'function'）は見つかりません 
> knitr::kable(t3, row.names=FALSE, align=c("l", "l", "r", "r", "r", "r"))
 knitr::kable(t3, row.names = FALSE, align = c("l", "l", "r",  でエラー: 
   オブジェクト 't3' がありません

該当のソースコード

R
1explanatory = c("age.factor", "sex.factor", "obstruct.factor", "perfor.factor")
2dependent = "mort_5yr"
3colon_s %>%
4  finalfit(dependent, explanatory) -> t3
5knitr::kable(t3, row.names=FALSE, align=c("l", "l", "r", "r", "r", "r"))