Rで生成したデータの前処理
で以前質問したのですが、dplyrを用いた場合の最後のmutateのところがうまく行きません。

params <- expand.grid(p = 1:2, q = 1:1, r = 1:2, s = 1:1)
ans <- params %>% rowwise() %>% mutate(aic = f(p, q, r, s))

関数fの部分は単独で変数を指定（コンソールにf(1,1,1,1)などと打ち込む）するとしっかり

返ってきて問題はないようですが、返り値がmatrixになっているためas.data.frameで直すと変なくっつき方をしました（具体的にうまく説明できない）。
そのため、しっかり横につなげようとmatrixを転地したあとくっつけようとすると

Error: incompatible size (4), expecting 1 (the group size) or 1

のエラーが出ました。そのため、matrixの中身だけ取り出そうと

ans <- params %>% rowwise() %>% mutate(aic = f(p, q, r, s)$[1,1]) %>% mutate(bic=f(p, q, r, s)$[1,2])

とやるとこの場合は$[]を用いてはいけないようでエラーになりました。

詳しい方、ヘルプお願い致します。