Прогресс-бар для MuMin Dredge - PullRequest
Новая
       61

Прогресс-бар для MuMin Dredge

0 голосов
/ 21 декабря 2018

Я занимаюсь дноуглубительными работами, и некоторые операции по дноуглублению занимают дни, а некоторые - часы.Мне интересно, могу ли я сказать R дать мне статус прогресса, пока дноуглубитель работает, поэтому я знаю, как долго ждать.

L <- lmer(Fw.FratioFall ~ scale(Average_mintemp_winter) 
          + scale(Average_mintemp_winter^2)
          + scale(percentage_woody_coverage) 
          + scale(percentage_woody_coverage^2)
          + scale(kmRoads.km2) 
          + scale(kmRoads.km2^2) 
          + scale(WELLS_ACTIVEinsideD) 
          + scale(WELLS_ACTIVEinsideD^2) 
          + scale(BadlandsCoyote.1000_mi)
          + scale(BadlandsCoyote.1000_mi^2) 
          + scale(WT_DEER_springsurveys)
          + scale(WT_DEER_springsurveys^2) 
          + scale(BadlandsCoyote.1000_mi)*scale(WELLS_ACTIVEinsideD) 
          + scale(Average_mintemp_winter)*scale(BadlandsCoyote.1000_mi)
          + scale(Average_mintemp_winter)*scale(WELLS_ACTIVEinsideD)
          + year + (year^2) + (year^3) + (1 | YEAR) + (year | StudyArea),  REML = F, data = mydata)


Model1 = dredge(L)

Проблема с земснарядом заключается в том, что он заполняет консоль `единственной подгонкой ', поскольку он производит тысячи моделей, поэтому предыдущие индикаторы выполнения, которые я добавил, очень быстро теряются.Мне интересно, смогу ли я обойти это.

Спасибо `

1 Ответ

0 голосов
/ 21 декабря 2018

Вы можете перенаправить поток ошибок в файл: 

sink(type = "message", file = "error.log")

Не забудьте впоследствии закрыть приемник, чтобы отобразить ошибки и предупреждения на консоли: 

sink(type = "message")
...