RのlmerTestのsummaryからEstimate effectsを抽出して保存する

####lmerTestとは
lmerの拡張パッケージ
GLMMの結果をsummary()で取得でき，fixed effectのEstimate-effectなどを確認できる．

####やりたいこと
得られる結果から，特定のestimate-effectを抽出したい

####やったこと
summary_analy = summary(analy)の内容を見ると，Estimate-effectは，
summary_analy[["coefficients"]]
に格納されている．
これをデータフレームに変換して
df_coef = as.data.frame(summary_analy[["coefficients"]])
求めたいfixed effect(今回は'X1')の行のEstimateを取りたいので．
df_coef$Estimate[rownames(df_coef) == 'X1']
で完了．
データフレームで列名指定する場合は
df$colname[rownames(df) == 'rowname']
で取得