안녕하세요.
'의학논문 작성을 위한 R 통계와 그래프' 책을 공부하다 p.30에서 루프와 관련된 내용이 있어서,
로지스틱 회귀분석에 적용해 보기 위해 연습해 보려고 했는데 잘 안 되어 질문합니다.
아래 R 구문에서 해보려고 한것은, loop을 이용해
mytable(Dx~age,data=acs)
mytable(Dx~sex,data=acs)
mytable(Dx~entry,data=acs)
를 순서대로 나오게 하려고 합니다.
===
require(moonBook)
data(acs)
# list 만들기
list <- c(
'age',
'sex',
'entry'
)
# loop 해보기
for(i in list){
mytable(Dx~i,data=acs)
}
===
해당 내용에 대한 error 메세지는 다음과 같이 나옵니다.
===
Error in data.frame(y = data[[y]], x = data[[x]]) :
arguments imply differing number of rows: 857, 0
Error in obj[[i]] : 첨자의 허용 범위를 벗어났습니다
===
구문을 어떻게 수정해야 나오는지 알려주시면 감사하겠습니다
Comment 3
-
바슈메트
2020.03.09 16:06
-
cardiomoon
2020.03.09 17:56
안되는 이유는 두가지입니다.1) 위에서는 리스트를 만든 것이 아니라 list라는 이름의 벡터를 만든 것입니다.2) 함수의 인수로 쓰는 formula는 문자가 아닙니다.두가지에 이유에 대해 이해가 안가실 지도 모르겠습니다만 R을 조금 더 공부하시면 아시게 됩니다. 어쩃든 다음과 같이 하면 됩니다.require(moonBook)data(acs)var <- c('age', 'sex', 'entry')for(i in 1:3) print(eval(parse(text=paste0("mytable(Dx~",var[1],",data=acs)")))) -
바슈메트
2020.03.10 01:50
교수님 답변 감사합니다!
No. | Subject | Author | Date |
---|---|---|---|
754 | PPTx 다운에 대해 질문드립니다. [3] | 라파엘 | 2020.03.30 |
753 | lubridate관련 문의드립니다. 꼭좀 도와주세요 ! [4] | 이엠티 | 2020.03.27 |
752 | 안녕하세요. 회귀식에 관해 문의드립니다. [3] | naaddict | 2020.03.24 |
751 | 질문드립니다. [1] | JJ1518 | 2020.03.24 |
750 | plot_ROC() 문의드립니다. [1] | 닥터강 | 2020.03.24 |
749 | ggplot 문의드립니다. [3] | 네잎클로바 | 2020.03.24 |
748 | 메타 분석에서 Egger의 회귀검정 관련 버그 [2] | 셀미셀미 | 2020.03.24 |
747 | 질문입니다 [3] | qubic | 2020.03.23 |
746 | ztable이 console에만 이상하게 뜹니다.(R studio) [2] | kiho | 2020.03.22 |
745 | 제발 부탁드립니다. [2] | 라파엘 | 2020.03.22 |
744 | R 시행후 오류에 대해 여쭙니다 [1] | neurokim | 2020.03.20 |
743 | 안녕하세요! 질문드립니다!! [2] | 래유니 | 2020.03.17 |
742 | 교수님 오랜만입니다! [1] | 스튜던트 | 2020.03.15 |
741 | 안녕하세요 선그래프 구현 질문드립니다. [3] | erynies | 2020.03.15 |
740 | 질문드립니다. [1] | JJ1518 | 2020.03.15 |
739 | 정회원 서버 프로그램 오류 관련 문의드립니다. [1] | kato7 | 2020.03.15 |
» | Loop 사용 관련하여 문의드립니다. [3] | 바슈메트 | 2020.03.09 |
737 | 회귀모형 자동해석 | cardiomoon | 2020.03.08 |
736 | Logistic regression 에서 변수 결정 방법 | 별명없음 | 2020.03.05 |
735 | 답변 부탁드리고 감사드립니다. [1] | 라파엘 | 2020.03.03 |
위 #loop 해보기 부분을 다음과 같이 대치해도 작동을 하지 않습니다.
for(i in 1:3) mytable(Dx~list[i],data=acs)