forループのモデルを定義するR

Question

Rでモデルを定義することについてthisの質問をしました。私がしたいのは、forループ内のモデルの変数を入れ替えて、すべての変数が対象変数他のすべての変数はその反復の予測変数です。ここでループのためにこれを作成するための私の試みを私の質問を明確にするため

mdl <- product1 ~ product2 + product3 
mdl <- product2 ~ product1 + product3 
mdl <- product3 ~ product1 + product2 

：

df <- data.frame(customer = c(1:5), product1 = c(1,0,1,1,0), product2 = c(0,1,0,0,1), product3 = c(0,1,1,1,0)) 

customer product1 product2 product3 
1  1  1  0  0 
2  2  0  1  1 
3  3  1  0  1 
4  4  1  0  1 
5  5  0  1  0 

それでは、私はこのケースで3回反復してforループを作成したいと考え

for(j in 1:ncol(df)){ 
    mdl <- df$[j] ~ df[-j] # include all variables except target variable 
    print(mdl) 
    } 

返された出力：

df[j] ~ df[-j] 
df[j] ~ df[-j] 
df[j] ~ df[-j] 
df[j] ~ df[-j] 

私は、所望の出力として何かを期待しながら：私はこれを知っていただきたいと思いますなぜあなたは不思議場合

product1 ~ product2 + product3 
product2 ~ product1 + product3 
product3 ~ product1 + product2 

を。私は私の質問が明確であり、うまくいけば、誰も私を助けることができることを願ってい

naiveBayes(mdl, df, type = "raw") 

：私は、この例のように予測モデルを実行するためのループでそれを使用したいです。

Answer 1

setdiffとlapplyを使用すると、数式を組み合わせることができます。

varNames = colnames(DF)[-1] 


lapply(varNames, function(x) paste0(x ,"~", paste0(setdiff(varNames,x),collapse="+"))) 
#[[1]] 
#[1] "product1~product2+product3" 
# 
#[[2]] 
#[1] "product2~product1+product3" 
# 
#[[3]] 
#[1] "product3~product1+product2" 

あなたのモデルにこれらを組み込むために、あなたができる：

modelList = lapply(varNames,function(x) { 

depVar = x 
indepVar = setdiff(varNames,x) 

formulaVar = as.formula(paste0(depVar ,"~", paste0(indepVar,collapse="+"))) 

nbModel = naiveBayes(formulaVar, df, type = "raw") 

outputList = list(indepVar = paste0(indepVar,collapse=","),depVar = depVar,nbModel = nbModel) 

return(outputList) 

}) 

これは依存VARS、独立したvarと最終的にナイーブベイズモデルを含むリストオブジェクトを返します。

modelList[[1]]のいずれかにアクセスするには、length(modelList)がこのリストのモデルの数を示します。組み合わせを生成するための代替方法については

、?combnと?expand.grid

combn(varNames,2) 
#  [,1]  [,2]  [,3]  
#[1,] "product1" "product1" "product2" 
#[2,] "product2" "product3" "product3" 

head(expand.grid(varNames,varNames,varNames)) 
#  Var1  Var2  Var3 
#1 product1 product1 product1 
#2 product2 product1 product1 
#3 product3 product1 product1 
#4 product1 product2 product1 
#5 product2 product2 product1 
#6 product3 product2 product1