"수식"을 분할하는 방법 R

Question

R 프로그래밍에 대한 제한된 지식으로 작은 R 패키지를 만들려고합니다. X 벡터, 'A'와 'B'일

formula=~a+b*X 

함수 호출에 상수 : 나는 다음과 같은 인수를 사용하는 것을 시도하고있다.

일단 내가 수식을 입력하면, (a,b)과 X를 따로 추출하고 함수 호출 내에서 다른 데이터 조작을 위해 사용하려고합니다. R에서 할 수있는 방법이 있습니까?

나는 정말로 어떤 지침을 부탁드립니다.

참고 : 나는() 출력을 model.matrix 유사한 무언가를 찾고 있어요 선명도

에 대한 내 질문에 편집. 전술 한 수식에서

~ 2 + 3 * X + 4 * Y + ... + 2 * Z

, 'N'변수 말하자면 수 수용하도록 더 일반화 될 수있다 출력으로, 나는 계수로 (2 3 4 ... 2)를 벡터로, [1 XY ... Z]를 공변량 행렬로 필요로한다.

Answer 1

질문이 완전히 명확하지 않으므로 표준 수식 구문을 사용하는 수식이 주어지면 출력으로 제공하는 변수 이름 (또는 두 번째 대답은 변수 이름과 상수)을 어떻게 파싱해야합니까? 그것들을 포함한 문자 벡터

1)이 시도 all.vars : 제공

fo <- a + b * X # input 
all.vars(fo) 

:

[1] "a" "b" "X" 

2)는 또한 우리는 문자열 조작과 그것을 할 수 strapplyc. 이 경우에는 상수를 파싱합니다.

library(gsubfn) 
fo <- ~ 25 + 35 * X # input 
strapplyc(gsub(" ", "", format(fo)), "-?[0-9.]+|[a-zA-Z0-9._]+", simplify = unlist) 

제공 :

[1] "25" "35" "X" 

참고 : 당신이하려고하는 모든 경우 에이을 평가에 R 식으로 식의 RHS는 단지입니다 :

X <- 1:3 
fo <- ~ 1 + 2 * X 
eval(fo[[2]]) 

주는 :

[1] 3 5 7 

업데이트 : 두 번째 해결 방법과 참고 사항을 수정하여 추가했습니다.

Answer 2

호출은 기호 및/또는 다른 호출 목록이며 해당 요소는 일반적인 인덱싱 작업을 통해 액세스 할 수 있습니다.

f <- ~a+bX 
f[[1]] 
#`~` 
f[[2]] 
#a + bX 
f[[2]][[1]] 
#`+` 
f[[2]][[2]] 
#a 

그러나 수식 bX에있는 것을 알 당신은 아마 대신 b * X을 의미 하나의 상징이다.

f <- ~a + b * X 

그런 a 및 b은 일반적으로 평가되지 않은 목록에 저장됩니다.

vars <- call('list', f[[2]][[2]], f[[2]][[3]][[2]]) 
vars 
#list(a, b) 

및 vars는 어떤 점에서 eval에 전달 될 것입니다.