Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/83.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/spring-mvc/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 编辑'；术语'；glm（）函数中的对象_R - Fatal编程技术网
Fatal编程技术网
  • r/
  • R 编辑'；术语'；glm（）函数中的对象

R 编辑'；术语'；glm（）函数中的对象

r

R 编辑'；术语'；glm（）函数中的对象,r,R,我有一个名为modelTrain的对象，它是由glm（）函数生成的。此对象还有几个其他对象，如：系数，公式，术语等 modelTrain<- glm(Def90Adj ~ .-1,data=base,family=binomial(link='logit')) 我想将带有特殊字符的名称更改为“Ven6mEvoluçoVencidoRatio（0.0001，Inf）]”“Ven6mEvoluçoVencidoRatio（0.0001，Inf）]”（不带特殊字符） 我试着复制没有特殊字符的

我有一个名为
modelTrain
的对象，它是由
glm（）
函数生成的。此对象还有几个其他对象，如：
系数
，
公式
，
术语
等

 modelTrain<- glm(Def90Adj ~ .-1,data=base,family=binomial(link='logit'))
我想将带有特殊字符的名称更改为
“Ven6mEvoluçoVencidoRatio（0.0001，Inf）]”
“Ven6mEvoluçoVencidoRatio（0.0001，Inf）]”（不带特殊字符）

我试着复制没有特殊字符的当前内容

attr(modelTrain$terms, "variables") <- list((Def90Adj,AveLncerLimiteRatio(0,1.04]....

attr（modelTrain$terms，“variables”）蛮力方法使用
quote（）
：


L1在将数据添加到模型之前，对数据执行此操作可能更容易

attr(modelTrain$terms, "variables") <- list((Def90Adj,AveLncerLimiteRatio(0,1.04]....



L1 <- quote(list(Def90Adj, `AveLncerLimiteRatio(0,1.04]`, `AveLncerLimiteRatio(1.04,3.96]`, 
`AveLncerLimiteRatio(11.4,40.3]`, `AveLncerLimiteRatio(3.96,11.4]`, 
`AveLncerLimiteRatio(40.3, Inf]`, `Ave6mEvolucaoAvencerRatio(0, Inf]`, 
`Ven6mEvolucaoVencidoRatio(0.0001, Inf]`, `Ven6mEvolucaoVencidoRatio[-Inf,-0.0001]`, 
`Avvencer(0,1.01e+04]`, `AVBenNegAVenRatio(0, Inf]`, 
`AVeNnNociAVenRatio(0, Inf]`, LimDummy, VencidoDummy, 
PrejuDummy, AVedncerDummy))



for (i in 2:length(L1)) {
    L1[[i]] <- substitute(x,list(x=gsub("V","v",deparse(L1[[i]]))))
}