Блог

Представьте, что у меня есть регрессия, подобная:

 regression lt;- glm(mpg ~ am * hp, data = mtcars)  

Я могу легко рассчитать предельные эффекты с modmarg помощью пакета:

 library(modmarg) margins lt;- marg(  regression, var_interest = "am",  at = list("hp" = 52:110),  type = "effects")  

Однако у меня есть много моделей с различными переменными для вычисления полей, поэтому я хотел бы поместить это в функцию:

 plotting_marg lt;- function(reg, cov) {  margins lt;- marg(  reg, var_interest = "truth",  at = list(cov = 52:110),  type = "effects")  } plotting_marg(regression, "hp", -3, 3)  

 Error in .marg(mod = mod, var_interest = var_interest, data = data, weights = weights, :   var_interest %in% names(data) is not TRUE  

Это не работает, по-видимому, из-за cov неправильного запроса. Я поиграл с enquo ним , но безуспешно. Как сюда добраться?

Присвоение list имени переданному объекту может быть выполнено с помощью setNames

 plotting_marg lt;- function(reg, cov) {  marg(  reg, var_interest = "am",  at = setNames(list(52:110), cov),  type = "effects")  }  

-тестирование

 gt; plotting_marg(regression, "hp") 
 #r #regression

 #r #регрессия

Вопрос:




Представьте, что у меня есть регрессия, подобная:

 regression lt;- glm(mpg ~ am * hp, data = mtcars)  
Я могу легко рассчитать предельные эффекты с  modmarg  помощью пакета:
 library(modmarg) margins lt;- marg(  regression, var_interest = "am",  at = list("hp" = 52:110),  type = "effects")  
Однако у меня есть много моделей с различными переменными для вычисления полей, поэтому я хотел бы поместить это в функцию:
 plotting_marg lt;- function(reg, cov) {  margins lt;- marg(  reg, var_interest = "truth",  at = list(cov = 52:110),  type = "effects")  } plotting_marg(regression, "hp", -3, 3)  
 Error in .marg(mod = mod, var_interest = var_interest, data = data, weights = weights, :   var_interest %in% names(data) is not TRUE  
Это не работает, по-видимому, из-за  cov  неправильного запроса. Я поиграл с  enquo  ним , но безуспешно. Как сюда добраться?

Ответ №1:

Присвоение  list  имени переданному объекту может быть выполнено с помощью  setNames 

 plotting_marg lt;- function(reg, cov) {  marg(  reg, var_interest = "am",  at = setNames(list(52:110), cov),  type = "effects")  }  
-тестирование
hp = 52`  Label Margin Standard.Error Test.Stat P.Value Lower CI (95%) Upper CI (95%) 1 am = 0 0.000000 0.000000 NaN NaN 0.000000 0.000000 2 am = 1 5.238604 1.918006 2.731276 0.01079466 1.309746 9.167462
 #r #regression
 #r #регрессия
Вопрос:

Представьте, что у меня есть регрессия, подобная:
 regression lt;- glm(mpg ~ am * hp, data = mtcars)  
Я могу легко рассчитать предельные эффекты с  modmarg  помощью пакета:
 library(modmarg) margins lt;- marg(  regression, var_interest = "am",  at = list("hp" = 52:110),  type = "effects")  
Однако у меня есть много моделей с различными переменными для вычисления полей, поэтому я хотел бы поместить это в функцию:
 plotting_marg lt;- function(reg, cov) {  margins lt;- marg(  reg, var_interest = "truth",  at = list(cov = 52:110),  type = "effects")  } plotting_marg(regression, "hp", -3, 3)  
 Error in .marg(mod = mod, var_interest = var_interest, data = data, weights = weights, :   var_interest %in% names(data) is not TRUE  
Это не работает, по-видимому, из-за  cov  неправильного запроса. Я поиграл с  enquo  ним , но безуспешно. Как сюда добраться?

Ответ №1:

Присвоение  list  имени переданному объекту может быть выполнено с помощью  setNames 

 plotting_marg lt;- function(reg, cov) {  marg(  reg, var_interest = "am",  at = setNames(list(52:110), cov),  type = "effects")  }  
-тестирование
hp = 53`  Label Margin Standard.Error Test.Stat P.Value Lower CI (95%) Upper CI (95%) 1 am = 0 0.000000 0.000000 NaN NaN 0.000000 0.000000 2 am = 1 5.239007 1.904537 2.750803 0.01030278 1.337739 9.140274
 #r #regression
 #r #регрессия
Вопрос:

Представьте, что у меня есть регрессия, подобная:
 regression lt;- glm(mpg ~ am * hp, data = mtcars)  
Я могу легко рассчитать предельные эффекты с  modmarg  помощью пакета:
 library(modmarg) margins lt;- marg(  regression, var_interest = "am",  at = list("hp" = 52:110),  type = "effects")  
Однако у меня есть много моделей с различными переменными для вычисления полей, поэтому я хотел бы поместить это в функцию:
 plotting_marg lt;- function(reg, cov) {  margins lt;- marg(  reg, var_interest = "truth",  at = list(cov = 52:110),  type = "effects")  } plotting_marg(regression, "hp", -3, 3)  
 Error in .marg(mod = mod, var_interest = var_interest, data = data, weights = weights, :   var_interest %in% names(data) is not TRUE  
Это не работает, по-видимому, из-за  cov  неправильного запроса. Я поиграл с  enquo  ним , но безуспешно. Как сюда добраться?

Ответ №1:

Присвоение  list  имени переданному объекту может быть выполнено с помощью  setNames 

 plotting_marg lt;- function(reg, cov) {  marg(  reg, var_interest = "am",  at = setNames(list(52:110), cov),  type = "effects")  }  
-тестирование
hp = 54`  Label Margin Standard.Error Test.Stat P.Value Lower CI (95%) Upper CI (95%) 1 am = 0 0.000000 0.000000 NaN NaN 0.000000 0.000000 2 am = 1 5.239409 1.891116 2.770539 0.009827057 1.365635 9.113184 ...  



Или может потребовать  lst  от  dplyr/purrr 
 plotting_marg lt;- function(reg, cov) {  marg(  reg, var_interest = "am",  at = dplyr::lst(!!cov := 52:110),  type = "effects")  }  
-тестирование
 gt; plotting_marg(regression, "hp") 
 #r #regression

 #r #регрессия

Вопрос:




Представьте, что у меня есть регрессия, подобная:

 regression lt;- glm(mpg ~ am * hp, data = mtcars)  
Я могу легко рассчитать предельные эффекты с  modmarg  помощью пакета:
 library(modmarg) margins lt;- marg(  regression, var_interest = "am",  at = list("hp" = 52:110),  type = "effects")  
Однако у меня есть много моделей с различными переменными для вычисления полей, поэтому я хотел бы поместить это в функцию:
 plotting_marg lt;- function(reg, cov) {  margins lt;- marg(  reg, var_interest = "truth",  at = list(cov = 52:110),  type = "effects")  } plotting_marg(regression, "hp", -3, 3)  
 Error in .marg(mod = mod, var_interest = var_interest, data = data, weights = weights, :   var_interest %in% names(data) is not TRUE  
Это не работает, по-видимому, из-за  cov  неправильного запроса. Я поиграл с  enquo  ним , но безуспешно. Как сюда добраться?

Ответ №1:

Присвоение  list  имени переданному объекту может быть выполнено с помощью  setNames 

 plotting_marg lt;- function(reg, cov) {  marg(  reg, var_interest = "am",  at = setNames(list(52:110), cov),  type = "effects")  }  
-тестирование
 gt; plotting_marg(regression, "hp") 
 #r #regression

 #r #регрессия

Вопрос:




Представьте, что у меня есть регрессия, подобная:

 regression lt;- glm(mpg ~ am * hp, data = mtcars)  
Я могу легко рассчитать предельные эффекты с  modmarg  помощью пакета:
 library(modmarg) margins lt;- marg(  regression, var_interest = "am",  at = list("hp" = 52:110),  type = "effects")  
Однако у меня есть много моделей с различными переменными для вычисления полей, поэтому я хотел бы поместить это в функцию:
 plotting_marg lt;- function(reg, cov) {  margins lt;- marg(  reg, var_interest = "truth",  at = list(cov = 52:110),  type = "effects")  } plotting_marg(regression, "hp", -3, 3)  
 Error in .marg(mod = mod, var_interest = var_interest, data = data, weights = weights, :   var_interest %in% names(data) is not TRUE  
Это не работает, по-видимому, из-за  cov  неправильного запроса. Я поиграл с  enquo  ним , но безуспешно. Как сюда добраться?

Ответ №1:

Присвоение  list  имени переданному объекту может быть выполнено с помощью  setNames 

 plotting_marg lt;- function(reg, cov) {  marg(  reg, var_interest = "am",  at = setNames(list(52:110), cov),  type = "effects")  }  
-тестирование
hp = 52`  Label Margin Standard.Error Test.Stat P.Value Lower CI (95%) Upper CI (95%) 1 am = 0 0.000000 0.000000 NaN NaN 0.000000 0.000000 2 am = 1 5.238604 1.918006 2.731276 0.01079466 1.309746 9.167462
 #r #regression
 #r #регрессия
Вопрос:

Представьте, что у меня есть регрессия, подобная:
 regression lt;- glm(mpg ~ am * hp, data = mtcars)  
Я могу легко рассчитать предельные эффекты с  modmarg  помощью пакета:
 library(modmarg) margins lt;- marg(  regression, var_interest = "am",  at = list("hp" = 52:110),  type = "effects")  
Однако у меня есть много моделей с различными переменными для вычисления полей, поэтому я хотел бы поместить это в функцию:
 plotting_marg lt;- function(reg, cov) {  margins lt;- marg(  reg, var_interest = "truth",  at = list(cov = 52:110),  type = "effects")  } plotting_marg(regression, "hp", -3, 3)  
 Error in .marg(mod = mod, var_interest = var_interest, data = data, weights = weights, :   var_interest %in% names(data) is not TRUE  
Это не работает, по-видимому, из-за  cov  неправильного запроса. Я поиграл с  enquo  ним , но безуспешно. Как сюда добраться?

Ответ №1:

Присвоение  list  имени переданному объекту может быть выполнено с помощью  setNames 

 plotting_marg lt;- function(reg, cov) {  marg(  reg, var_interest = "am",  at = setNames(list(52:110), cov),  type = "effects")  }  
-тестирование
hp = 53`  Label Margin Standard.Error Test.Stat P.Value Lower CI (95%) Upper CI (95%) 1 am = 0 0.000000 0.000000 NaN NaN 0.000000 0.000000 2 am = 1 5.239007 1.904537 2.750803 0.01030278 1.337739 9.140274
 #r #regression
 #r #регрессия
Вопрос:

Представьте, что у меня есть регрессия, подобная:
 regression lt;- glm(mpg ~ am * hp, data = mtcars)  
Я могу легко рассчитать предельные эффекты с  modmarg  помощью пакета:
 library(modmarg) margins lt;- marg(  regression, var_interest = "am",  at = list("hp" = 52:110),  type = "effects")  
Однако у меня есть много моделей с различными переменными для вычисления полей, поэтому я хотел бы поместить это в функцию:
 plotting_marg lt;- function(reg, cov) {  margins lt;- marg(  reg, var_interest = "truth",  at = list(cov = 52:110),  type = "effects")  } plotting_marg(regression, "hp", -3, 3)  
 Error in .marg(mod = mod, var_interest = var_interest, data = data, weights = weights, :   var_interest %in% names(data) is not TRUE  
Это не работает, по-видимому, из-за  cov  неправильного запроса. Я поиграл с  enquo  ним , но безуспешно. Как сюда добраться?

Ответ №1:

Присвоение  list  имени переданному объекту может быть выполнено с помощью  setNames 

 plotting_marg lt;- function(reg, cov) {  marg(  reg, var_interest = "am",  at = setNames(list(52:110), cov),  type = "effects")  }  
-тестирование
hp = 54`  Label Margin Standard.Error Test.Stat P.Value Lower CI (95%) Upper CI (95%) 1 am = 0 0.000000 0.000000 NaN NaN 0.000000 0.000000 2 am = 1 5.239409 1.891116 2.770539 0.009827057 1.365635 9.113184 ...  



Или может потребовать  lst  от  dplyr/purrr 
 plotting_marg lt;- function(reg, cov) {  marg(  reg, var_interest = "am",  at = dplyr::lst(!!cov := 52:110),  type = "effects")  }  
-тестирование
hp = 52`  Label Margin Standard.Error Test.Stat P.Value Lower CI (95%) Upper CI (95%) 1 am = 0 0.000000 0.000000 NaN NaN 0.000000 0.000000 2 am = 1 5.238604 1.918006 2.731276 0.01079466 1.309746 9.167462
 #r #regression
 #r #регрессия
Вопрос:

Представьте, что у меня есть регрессия, подобная:
 regression lt;- glm(mpg ~ am * hp, data = mtcars)  
Я могу легко рассчитать предельные эффекты с  modmarg  помощью пакета:
 library(modmarg) margins lt;- marg(  regression, var_interest = "am",  at = list("hp" = 52:110),  type = "effects")  
Однако у меня есть много моделей с различными переменными для вычисления полей, поэтому я хотел бы поместить это в функцию:
 plotting_marg lt;- function(reg, cov) {  margins lt;- marg(  reg, var_interest = "truth",  at = list(cov = 52:110),  type = "effects")  } plotting_marg(regression, "hp", -3, 3)  
 Error in .marg(mod = mod, var_interest = var_interest, data = data, weights = weights, :   var_interest %in% names(data) is not TRUE  
Это не работает, по-видимому, из-за  cov  неправильного запроса. Я поиграл с  enquo  ним , но безуспешно. Как сюда добраться?

Ответ №1:

Присвоение  list  имени переданному объекту может быть выполнено с помощью  setNames 

 plotting_marg lt;- function(reg, cov) {  marg(  reg, var_interest = "am",  at = setNames(list(52:110), cov),  type = "effects")  }  
-тестирование
 gt; plotting_marg(regression, "hp") 
 #r #regression

 #r #регрессия

Вопрос:




Представьте, что у меня есть регрессия, подобная:

 regression lt;- glm(mpg ~ am * hp, data = mtcars)  
Я могу легко рассчитать предельные эффекты с  modmarg  помощью пакета:
 library(modmarg) margins lt;- marg(  regression, var_interest = "am",  at = list("hp" = 52:110),  type = "effects")  
Однако у меня есть много моделей с различными переменными для вычисления полей, поэтому я хотел бы поместить это в функцию:
 plotting_marg lt;- function(reg, cov) {  margins lt;- marg(  reg, var_interest = "truth",  at = list(cov = 52:110),  type = "effects")  } plotting_marg(regression, "hp", -3, 3)  
 Error in .marg(mod = mod, var_interest = var_interest, data = data, weights = weights, :   var_interest %in% names(data) is not TRUE  
Это не работает, по-видимому, из-за  cov  неправильного запроса. Я поиграл с  enquo  ним , но безуспешно. Как сюда добраться?

Ответ №1:

Присвоение  list  имени переданному объекту может быть выполнено с помощью  setNames 

 plotting_marg lt;- function(reg, cov) {  marg(  reg, var_interest = "am",  at = setNames(list(52:110), cov),  type = "effects")  }  
-тестирование
hp = 52`  Label Margin Standard.Error Test.Stat P.Value Lower CI (95%) Upper CI (95%) 1 am = 0 0.000000 0.000000 NaN NaN 0.000000 0.000000 2 am = 1 5.238604 1.918006 2.731276 0.01079466 1.309746 9.167462
 #r #regression
 #r #регрессия
Вопрос:

Представьте, что у меня есть регрессия, подобная:
 regression lt;- glm(mpg ~ am * hp, data = mtcars)  
Я могу легко рассчитать предельные эффекты с  modmarg  помощью пакета:
 library(modmarg) margins lt;- marg(  regression, var_interest = "am",  at = list("hp" = 52:110),  type = "effects")  
Однако у меня есть много моделей с различными переменными для вычисления полей, поэтому я хотел бы поместить это в функцию:
 plotting_marg lt;- function(reg, cov) {  margins lt;- marg(  reg, var_interest = "truth",  at = list(cov = 52:110),  type = "effects")  } plotting_marg(regression, "hp", -3, 3)  
 Error in .marg(mod = mod, var_interest = var_interest, data = data, weights = weights, :   var_interest %in% names(data) is not TRUE  
Это не работает, по-видимому, из-за  cov  неправильного запроса. Я поиграл с  enquo  ним , но безуспешно. Как сюда добраться?

Ответ №1:

Присвоение  list  имени переданному объекту может быть выполнено с помощью  setNames 

 plotting_marg lt;- function(reg, cov) {  marg(  reg, var_interest = "am",  at = setNames(list(52:110), cov),  type = "effects")  }  
-тестирование
hp = 53`  Label Margin Standard.Error Test.Stat P.Value Lower CI (95%) Upper CI (95%) 1 am = 0 0.000000 0.000000 NaN NaN 0.000000 0.000000 2 am = 1 5.239007 1.904537 2.750803 0.01030278 1.337739 9.140274
 #r #regression
 #r #регрессия
Вопрос:

Представьте, что у меня есть регрессия, подобная:
 regression lt;- glm(mpg ~ am * hp, data = mtcars)  
Я могу легко рассчитать предельные эффекты с  modmarg  помощью пакета:
 library(modmarg) margins lt;- marg(  regression, var_interest = "am",  at = list("hp" = 52:110),  type = "effects")  
Однако у меня есть много моделей с различными переменными для вычисления полей, поэтому я хотел бы поместить это в функцию:
 plotting_marg lt;- function(reg, cov) {  margins lt;- marg(  reg, var_interest = "truth",  at = list(cov = 52:110),  type = "effects")  } plotting_marg(regression, "hp", -3, 3)  
 Error in .marg(mod = mod, var_interest = var_interest, data = data, weights = weights, :   var_interest %in% names(data) is not TRUE  
Это не работает, по-видимому, из-за  cov  неправильного запроса. Я поиграл с  enquo  ним , но безуспешно. Как сюда добраться?

Ответ №1:

Присвоение  list  имени переданному объекту может быть выполнено с помощью  setNames 

 plotting_marg lt;- function(reg, cov) {  marg(  reg, var_interest = "am",  at = setNames(list(52:110), cov),  type = "effects")  }  
-тестирование
hp = 54`  Label Margin Standard.Error Test.Stat P.Value Lower CI (95%) Upper CI (95%) 1 am = 0 0.000000 0.000000 NaN NaN 0.000000 0.000000 2 am = 1 5.239409 1.891116 2.770539 0.009827057 1.365635 9.113184 ...  



Или может потребовать  lst  от  dplyr/purrr 
 plotting_marg lt;- function(reg, cov) {  marg(  reg, var_interest = "am",  at = dplyr::lst(!!cov := 52:110),  type = "effects")  }  
-тестирование
hp = 53`  Label Margin Standard.Error Test.Stat P.Value Lower CI (95%) Upper CI (95%) 1 am = 0 0.000000 0.000000 NaN NaN 0.000000 0.000000 2 am = 1 5.239007 1.904537 2.750803 0.01030278 1.337739 9.140274
 #r #regression
 #r #регрессия
Вопрос:

Представьте, что у меня есть регрессия, подобная:
 regression lt;- glm(mpg ~ am * hp, data = mtcars)  
Я могу легко рассчитать предельные эффекты с  modmarg  помощью пакета:
 library(modmarg) margins lt;- marg(  regression, var_interest = "am",  at = list("hp" = 52:110),  type = "effects")  
Однако у меня есть много моделей с различными переменными для вычисления полей, поэтому я хотел бы поместить это в функцию:
 plotting_marg lt;- function(reg, cov) {  margins lt;- marg(  reg, var_interest = "truth",  at = list(cov = 52:110),  type = "effects")  } plotting_marg(regression, "hp", -3, 3)  
 Error in .marg(mod = mod, var_interest = var_interest, data = data, weights = weights, :   var_interest %in% names(data) is not TRUE  
Это не работает, по-видимому, из-за  cov  неправильного запроса. Я поиграл с  enquo  ним , но безуспешно. Как сюда добраться?

Ответ №1:

Присвоение  list  имени переданному объекту может быть выполнено с помощью  setNames 

 plotting_marg lt;- function(reg, cov) {  marg(  reg, var_interest = "am",  at = setNames(list(52:110), cov),  type = "effects")  }  
-тестирование
 gt; plotting_marg(regression, "hp") 
 #r #regression

 #r #регрессия

Вопрос:




Представьте, что у меня есть регрессия, подобная:

 regression lt;- glm(mpg ~ am * hp, data = mtcars)  
Я могу легко рассчитать предельные эффекты с  modmarg  помощью пакета:
 library(modmarg) margins lt;- marg(  regression, var_interest = "am",  at = list("hp" = 52:110),  type = "effects")  
Однако у меня есть много моделей с различными переменными для вычисления полей, поэтому я хотел бы поместить это в функцию:
 plotting_marg lt;- function(reg, cov) {  margins lt;- marg(  reg, var_interest = "truth",  at = list(cov = 52:110),  type = "effects")  } plotting_marg(regression, "hp", -3, 3)  
 Error in .marg(mod = mod, var_interest = var_interest, data = data, weights = weights, :   var_interest %in% names(data) is not TRUE  
Это не работает, по-видимому, из-за  cov  неправильного запроса. Я поиграл с  enquo  ним , но безуспешно. Как сюда добраться?

Ответ №1:

Присвоение  list  имени переданному объекту может быть выполнено с помощью  setNames 

 plotting_marg lt;- function(reg, cov) {  marg(  reg, var_interest = "am",  at = setNames(list(52:110), cov),  type = "effects")  }  
-тестирование
hp = 52`  Label Margin Standard.Error Test.Stat P.Value Lower CI (95%) Upper CI (95%) 1 am = 0 0.000000 0.000000 NaN NaN 0.000000 0.000000 2 am = 1 5.238604 1.918006 2.731276 0.01079466 1.309746 9.167462
 #r #regression
 #r #регрессия
Вопрос:

Представьте, что у меня есть регрессия, подобная:
 regression lt;- glm(mpg ~ am * hp, data = mtcars)  
Я могу легко рассчитать предельные эффекты с  modmarg  помощью пакета:
 library(modmarg) margins lt;- marg(  regression, var_interest = "am",  at = list("hp" = 52:110),  type = "effects")  
Однако у меня есть много моделей с различными переменными для вычисления полей, поэтому я хотел бы поместить это в функцию:
 plotting_marg lt;- function(reg, cov) {  margins lt;- marg(  reg, var_interest = "truth",  at = list(cov = 52:110),  type = "effects")  } plotting_marg(regression, "hp", -3, 3)  
 Error in .marg(mod = mod, var_interest = var_interest, data = data, weights = weights, :   var_interest %in% names(data) is not TRUE  
Это не работает, по-видимому, из-за  cov  неправильного запроса. Я поиграл с  enquo  ним , но безуспешно. Как сюда добраться?

Ответ №1:

Присвоение  list  имени переданному объекту может быть выполнено с помощью  setNames 

 plotting_marg lt;- function(reg, cov) {  marg(  reg, var_interest = "am",  at = setNames(list(52:110), cov),  type = "effects")  }  
-тестирование
hp = 53`  Label Margin Standard.Error Test.Stat P.Value Lower CI (95%) Upper CI (95%) 1 am = 0 0.000000 0.000000 NaN NaN 0.000000 0.000000 2 am = 1 5.239007 1.904537 2.750803 0.01030278 1.337739 9.140274
 #r #regression
 #r #регрессия
Вопрос:

Представьте, что у меня есть регрессия, подобная:
 regression lt;- glm(mpg ~ am * hp, data = mtcars)  
Я могу легко рассчитать предельные эффекты с  modmarg  помощью пакета:
 library(modmarg) margins lt;- marg(  regression, var_interest = "am",  at = list("hp" = 52:110),  type = "effects")  
Однако у меня есть много моделей с различными переменными для вычисления полей, поэтому я хотел бы поместить это в функцию:
 plotting_marg lt;- function(reg, cov) {  margins lt;- marg(  reg, var_interest = "truth",  at = list(cov = 52:110),  type = "effects")  } plotting_marg(regression, "hp", -3, 3)  
 Error in .marg(mod = mod, var_interest = var_interest, data = data, weights = weights, :   var_interest %in% names(data) is not TRUE  
Это не работает, по-видимому, из-за  cov  неправильного запроса. Я поиграл с  enquo  ним , но безуспешно. Как сюда добраться?

Ответ №1:

Присвоение  list  имени переданному объекту может быть выполнено с помощью  setNames 

 plotting_marg lt;- function(reg, cov) {  marg(  reg, var_interest = "am",  at = setNames(list(52:110), cov),  type = "effects")  }  
-тестирование
hp = 54`  Label Margin Standard.Error Test.Stat P.Value Lower CI (95%) Upper CI (95%) 1 am = 0 0.000000 0.000000 NaN NaN 0.000000 0.000000 2 am = 1 5.239409 1.891116 2.770539 0.009827057 1.365635 9.113184 ...  



Или может потребовать  lst  от  dplyr/purrr 
 plotting_marg lt;- function(reg, cov) {  marg(  reg, var_interest = "am",  at = dplyr::lst(!!cov := 52:110),  type = "effects")  }  
-тестирование
hp = 54`  Label Margin Standard.Error Test.Stat P.Value Lower CI (95%) Upper CI (95%) 1 am = 0 0.000000 0.000000 NaN NaN 0.000000 0.000000 2 am = 1 5.239409 1.891116 2.770539 0.009827057 1.365635 9.113184 ...