File:Pre-term corticosteroid data.svg
此 SVG 檔案的 PNG 預覽的大小：684 × 309 像素。 其他解析度：320 × 145 像素 | 640 × 289 像素 | 1,024 × 463 像素 | 1,280 × 578 像素 | 2,560 × 1,156 像素。
原始檔案 （SVG 檔案，表面大小：684 × 309 像素，檔案大小：95 KB）
摘要
| 描述 |
English: This forest plot shows trials of the use of corticosteroids to hasten lung development in pre-term babies. It is an iconic illustration of the power of medical reviews to save lives. The iconic review is from the 1980s, so this plot does not contain all the evidence of the up-to-date version of the same review.
This data is the data from which the logo for Cochrane (organisation) is derived. |
| 日期 | |
| 來源 | Source code modified by User:HLHJ from the data and plotting scripts supplied with the GPL-2-licensed software package rmeta (part of the R statistical environment). See rmeta documentation. |
| 作者 | Thomas Lumley, User:HLHJ |
| SVG開發 | |
| 原始碼 | R codeinstall.packages("rmeta")
library(rmeta)
data(cochrane)
svg("cochrane_logo_data.svg",width=9,height=4.35)
steroid <- meta.MH(n.trt, n.ctrl, ev.trt, ev.ctrl,
names=name, data=cochrane)
tabletext<-cbind(
c("","Study",steroid$names,NA,"Summary"), #Just tags, not single-author papers
# c("","Year",c(1111,1111,1111,1111,1111,1111,1111),NA,NA), #Don't have this data
c("Deaths","(corticosteroid)",cochrane$ev.trt,NA,NA),
c("Deaths","(placebo)", cochrane$ev.ctrl, NA,NA),
c("","Odds ratio",format(exp(steroid$logOR),digits=2),NA,format(exp(steroid$logMH),digits=2))
)
m<- c(NA,NA,steroid$logOR,NA,steroid$logMH) #Mean
l<- m-c(NA,NA,steroid$selogOR,NA,steroid$selogMH)*2 #Lower
u<- m+c(NA,NA,steroid$selogOR,NA,steroid$selogMH)*2 #Upper
forestplot(tabletext,m,l,u,zero=0,is.summary=c(TRUE,TRUE,rep(FALSE,8),TRUE),
clip=c(log(0.015),log(3)), xlog=TRUE,
xticks=c(0.01,0.1,1,2,4),
col=meta.colors(box="royalblue",line="darkblue", summary="royalblue"))
forestplot(tabletext,m,l,u,zero=0,is.summary=c(TRUE,TRUE,rep(FALSE,8),TRUE),
clip=c(log(0.015),log(3)), xlog=TRUE,
#boxsize=0.75,
xticks=c(0.01,0.1,1,2,4),
xlab="\nOdds ratio with 95% confidence interval\n(1=no effect, <1=treatment has fewer deaths)",
col=meta.colors(box="royalblue",line="darkblue", summary="royalblue"))
dev.off()
|
|
This work is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; version 2. This work is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See version 2 of the GNU General Public License for more details. |
檔案歷史
點選日期/時間以檢視該時間的檔案版本。
| 日期/時間 | 縮圖 | 尺寸 | 用戶 | 備註 | |
|---|---|---|---|---|---|
| 目前 | 2017年10月21日 (六) 20:00 | | 684 × 309（95 KB） | HLHJ | Took out background and cropped using Inkscape |
| 2017年10月21日 (六) 18:13 |  | 810 × 391（63 KB） | HLHJ | User created page with UploadWizard |
檔案用途
下列頁面有用到此檔案：
全域檔案使用狀況
以下其他 wiki 使用了這個檔案：
- en.wikipedia.org 的使用狀況
- fr.wikipedia.org 的使用狀況
- he.wikipedia.org 的使用狀況
- ja.wikipedia.org 的使用狀況
- pl.wikipedia.org 的使用狀況
