out1 <- glm(DMR_0m~duration, family = binomial, data=tid1)
out0 <- glm(DMR_0m~duration, family = binomial, data=tid0)
par(mfrow=c(1,2))
plot(DMR_0m~duration, data=tid1, type="n", main="acute-onset T1DM")
curve(predict(out1, data.frame(duration=x), type="resp"), add=T)
curve(
predict(out1, data.frame(duration=x), type="resp", se.fit=T)$fit +
predict(out1, data.frame(duration=x), type="resp", se.fit=T)$se.fit*1.96, add=T, col="black", lty=2)
curve(
predict(out1, data.frame(duration=x), type="resp", se.fit=T)$fit -
predict(out1, data.frame(duration=x), type="resp", se.fit=T)$se.fit*1.96, add=T, col="black", lty=2)
plot(DMR_0m~duration, data=tid0, type="n", main="slowly-progressive T1DM")
curve(predict(out0, data.frame(duration=x), type="resp"), add=T)
curve(
predict(out0, data.frame(duration=x), type="resp", se.fit=T)$fit +
predict(out0, data.frame(duration=x), type="resp", se.fit=T)$se.fit*1.96, add=T, col="black", lty=2)
curve(
predict(out0, data.frame(duration=x), type="resp", se.fit=T)$fit -
predict(out0, data.frame(duration=x), type="resp", se.fit=T)$se.fit*1.96, add=T, col="black", lty=2)
------------------------------------------------------
위와 같이 종속 변수는 DMR_0m (binomial) 으로 같으나 두개의 subgroup (tid1, tid0) 으로 나누어서 각각 로지스틱 분석 및 predictive probablitiy 검사를 시행하였습니다.
그렇게 하여 mfrow 기능을 이용하여 나란히 그래프를 그리긴 했는데 이 그래프를 한 그래프로 합치는 방법을 혹시 알수 있을 까요? (첨푸파일 참조)
많은 도움을 받고 있습니다. 미리 감사드립니다.
Comment 2
-
cardiomoon
2018.11.07 11:32
-
jh100
2018.11.07 21:07
정말 감사드립니다! 항상 배우고 갑니다
No. | Subject | Author | Date |
---|---|---|---|
1194 | PSM 시 범주형 변수가 총 10가지 일 때 어떻게 돌려야 하는지요 [1] | 긍정적인마음가짐 | 2023.05.06 |
1193 | 첫번째 행을 라벨로 사용 버튼 클릭시 에러 문의 [3] | 수담이 | 2023.05.04 |
1192 | 안녕하세요? web-R table 그리고 관련하여 문의드립니다. [4] | mkw7654 | 2023.05.02 |
1191 | 메타분석 U3 그래프 관련 문의드립니다 | 화이팅 | 2023.05.02 |
1190 | 교수님 안녕하세요~~ | 메시12 | 2023.04.29 |
1189 | 연속형 변수인데 범주형으로 인지됩니다. [2] | shararaku | 2023.04.28 |
1188 | 통계마당 [2] | ejo | 2023.04.27 |
1187 | moonBook 오류 관련 재문의드립니다. [1] | holyhyun | 2023.04.24 |
1186 | moonBook 사용시 오류메시지로 문의드립니다. [1] | holyhyun | 2023.04.24 |
1185 | 에러 문의 [2] | 화이팅 | 2023.04.19 |
1184 | Cox regression 에 대한 문의입니다. [2] | saga | 2023.04.18 |
1183 | PSM 문의 [3] | starwars | 2023.04.13 |
1182 | ggPS, ggPSMSummary function [6] | 로렌쵸메디치 | 2023.04.12 |
1181 | Survival 분석에 대해서 문의 드립니다. | 정훈신 | 2023.04.05 |
1180 | 안녕하세요. 분석 툴에 대해 문의드립니다. [1] | 스매직맨 | 2023.04.04 |
1179 | 드디어 publish 되었네요. [2] | 정지윤 | 2023.04.04 |
1178 | 연구동향분석 시 논문 데이터 정제 관련 [5] | vtlbtl | 2023.03.31 |
1177 | 안녕하세요 교수님 에러 문의드립니다 [2] | 소소 | 2023.03.26 |
1176 | 코딩값이 여러개인 변수에 대한 전체 p값을 알 수 있는 방법이 궁금합니다 | 쥬쥬즈주 | 2023.03.22 |
1175 | PSM 매칭 버튼 보이지 않음. | swpapa | 2023.03.19 |
제가 만든 ggiraphExtra 패키지의 ggPredict()함수를 써보셔요
감사합니다.
https://cran.r-project.org/web/packages/ggiraphExtra/vignettes/ggPredict.html