関数を使用してデータを渡してモデル行列を評価する

Question

2つ目の "with"呼び出しのうち最初の呼び出しのみがモデル行列を返し、2番目の関数はエラーメッセージを返します。

data<-data.frame(y=runif(10),x=runif(10)) 
formula1<-y~x 
with(data,model.matrix(y~x)) 
with(data,model.matrix(formula1)) 
#Error in eval(predvars, data, env) : object 'y' not found 

Answer 1

は以下

data<-data.frame(y=runif(10),x=runif(10)) 
formula1<-"y~x" 
with(data,model.matrix(y~x)) 
with(data,model.matrix(formula(formula1))) 

は非常によく似た質問と非常に洞察に満ちたコメントをpost1とpost2をお読みください動作します。