下記の計算結果を、txtかcsvでファイルに出力したく、ご教示いただけませんでしょうか。

#CSVファイルを読み込む
a <- read.csv("testfile.csv")

#列Aを表示
print(a$A) # あるいはprint(a[, 'A'])
print(a$B)
print(a$C)


#A列の統計値を求める
#平均
mean(a$A)
#中央値
median(a$A)
#最頻値
names(which.max(table(a$A)))


#B列の統計値を求める
#平均
mean(a$B)
#中央値
median(a$B)
#最頻値
names(which.max(table(a$B)))


#C列の統計値を求める
#平均
mean(a$C)
#中央値
median(a$C)
#最頻値
names(which.max(table(a$C)))



#計算した統計値を結果をデータに保存する
???

結果(イメージ。フォーマットは違っても可)

 ,平均,中央値,最頻値
A,結果, 結果, 結果
B,結果, 結果, 結果
C,結果, 結果, 結果