Эта проблема распространена на многих почтовых клиентах, просто используйте:
<img style="display:block" />
для каждого изображения в вашем HTML.
Что-то вроде:
library(drc)
Разделить фрейм данных на список фреймов данных, по одному на страну:
split_df <- split(final.df, final.df$county)
Функция для подгонки модели для набора данных вернуть коэффициенты:
fitfun <- function(d) {
mL <- drm(percent_farm_tractor ~ year, data = d, fct = L.3(), type = "continuous")
return(coef(mL))
}
Применить функцию к каждому фрагменту данных:
lapply(split_df, fitfun)