希望这有助于他人

在我发出早期的电子邮件后，意识到有write.fit。我的解决方案是修改它

fit2tablefunction（拟合，结果= null，文件，数字= 3，调整=“none”，sep =“\ t”，...）{if（！是（fit，“marraylm”））停止（“适合应该是一个Marraylm对象“）如果（！是.NULL（结果）&&！是（结果，”测试结果“））停止（”结果应该是测试结果对象“）（是null（fit $ t）||。null（fit $ p.value））fit < -  ebayes（fit）p.value <--asmatrix（fit $ p.value）for（j在1：ncol（p.value））p.value [，j] < -  p.adjust（p.value [，j]，方法=调整）rn <函数（x，数字=数字）（是null（x））null els {if（is.matrix（x）&& ncol（x）== 1）x < -  x [，1] round（x，digits = digits）}选项卡< -  list（）选项卡$ a < -  rn（fit $ amean，digits = digits  -  1）选项卡$ cof < -  rn（fit $ coof，digits =数字）选项卡$ t <--rn（fit $ t，数字=数字 -  1）选项卡$ p.value < -  rn（p.value，数字=数字+ 2）tab$F <- rn(fit$F, digits = digits - 1) tab$F.p.value <- rn(fit$F.p.value, digits = digits + 2) tab$Res <- unclass(results) tab$Genes <- fit$genes return(data.frame(tab, check.names = FALSE))}

这as.data.frame（fit）帮助文件片段中提到的呼叫确实在一个数据帧中的所有系数都进行了整理结果。