총 327페이지

283페이지 본문시작

위험평가를 위한 정량평가법 소개 - R을 이용한 이론과 실습
CODE
x
#x에값할당
#(a)-(f)그래프겹쳐그리기
plot(x,1-(1-x*0.4)^20,xlim=c(0,1),ylim=c(0,1.2),type='b',pch=15,
xlab="Prevalence",ylab="ProbDiseaseentry")
par(new=TRUE)
plot(x,1-(1-x*0.8)^20,xlim=c(0,1),ylim=c(0,1.2),type='b',pch=16,
xlab="Prevalence",ylab="ProbDiseaseentry")
par(new=TRUE)
plot(x,1-(1-x*0.95)^20,xlim=c(0,1),ylim=c(0,1.2),type='b',pch=17,
xlab="Prevalence",ylab="ProbDiseaseentry")
par(new=TRUE)
plot(x,(1-x*0.6)^20-(1-x)^20,xlim=c(0,1),ylim=c(0,1.2),type='b',pch=18,
xlab="Prevalence",ylab="ProbDiseaseentry")
par(new=TRUE)
plot(x,(1-x*0.8)^20-(1-x)^20,xlim=c(0,1),ylim=c(0,1.2),type='b',pch=10,
xlab="Prevalence",ylab="ProbDiseaseentry")
par(new=TRUE)
plot(x,(1-x*0.95)^20-(1-x)^20,xlim=c(0,1),ylim=c(0,1.2),type='b',pch=4,
xlab="Prevalence",ylab="ProbDiseaseentry")
#범례생성
legend(0.9,0.8,legend=c("(a)","(b)","(c)","(d)","(e)","(f)"),
pch=c(15,16,17,18,10,4))
그림 5-8 동물이 개별적 혹은 군 단위로 폐기될때 질병 유입확률 비교.
?
?
?
. n=20, 유병률과 민감도는 다양함.
�狼詠煬狼�?�煬狼詠�?�挻�
와 �煬狼�?��?��
�詠煬狼�?��
위에서부터 (a) 개별 동물 단위 폐기, Se=60% (b) 개별 동물 단위 폐기, Se=80% (c)
개별 동물 단위 폐기, Se=95% (d) 동물군 단위 폐기, Se=60% (e) 동물군 단위 폐기,
Se=80% (f) 동물군 단위 폐기, Se=95%.
268

283페이지 본문끝



현재 포커스의 아래내용들은 동일한 컨텐츠를 가지고 페이지넘김 효과및 시각적 효과를 제공하는 페이지이므로 스크린리더 사용자는 여기까지만 낭독하시고 위의 페이지이동 링크를 사용하여 다음페이지로 이동하시기 바랍니다.
상단메뉴 바로가기 단축키안내 : 이전페이지는 좌측방향키, 다음페이지는 우측방향키, 첫페이지는 상단방향키, 마지막페이지는 하단방향키, 좌측확대축소는 insert키, 우측확대축소는 delete키