不一致の式を確認する方法R

Question

Rでformulaをテストして、ユーザーがformulaで代行受信を指定したかどうかを確認したいとします。現在私はこのために関数termsを使用しています。私は、所望の出力

terms(y ~ x)  #found an intercept 
terms(y ~ 1 + x) #found an intercept 
terms(y ~ 0 + x) #found no intercept 
terms(y ~ -1 + x) #found no intercept 

を取得しかし場合には、ユーザが矛盾入力を与える次のような場合において、Iは、インターセプトの仕様約termsから（IMO任意）結果を得ます。私が実際に欲しい

terms(y ~ -1 + 1 + x) #found an intercept 
terms(y ~ 1 - 1 + x) #found no intercept 
terms(y ~ 0 + 1 + x) #found an intercept 
terms(y ~ 1 + 0 + x) #found no intercept 

は、これらの場合にエラーまたは警告をスローするtermsです。これはtermsで可能ですか？（正規表現などを介して） "手動で"一貫性のチェックを行う必要がありますか？

Answer 1

式foは切片がある場合ので、これはエラーを生成する

さもなければ

has_intercept <- attr(terms(fo), "intercept") 

をインターセプトし、0を持っている場合、これは1になります。

if (has_intercept) stop("Intercept is not allowed") 

当該矛盾発言についてそれが動作する方法は、左から右に行き、最後に遭遇したものを使用するように思われます。例えば、y ~ 0 + 1 + xはインターセプトを持ち、y ~ 1 + 0 + xはありません。

一貫性を保つために、通常は自分のルールを作り直すのではなく、Rのルールに従うのが最良です。