r - 適切な行見出しと列見出しを付けて行列を r に保存する

Question

関数を使用して行列をcsvフォーマットで保存したい。write.table次のコマンドを使用すると、列名が 1 セル前に移動します。列名をそのままにしておく方法はありますか? ありがとう

mdat <- matrix(c(1,2,3, 11,12,13), nrow = 2, ncol = 3, byrow = TRUE,
               dimnames = list(c("row1", "row2"),
                               c("C.1", "C.2", "C.3")))
mdat

write.table(
    x=mdat
  , file = "mdat.csv"
  , sep = ","
  )