קובץ:Pre-term corticosteroid data.svg

לקובץ המקורי(קובץ SVG, הגודל המקורי: 684 × 309 פיקסלים, גודל הקובץ: 95 ק"ב)

ויקישיתוף זהו קובץ שמקורו במיזם ויקישיתוף. תיאורו בדף תיאור הקובץ המקורי (בעברית) מוצג למטה.

תקציר

תיאור
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התפתחות 
InfoField
 
.קוד המקור של קובץ SVG זה הוא תקין
 
R עם‎‎ נוצרה ה גרפיקה וקטורית
 
This file uses translateable embedded text.
קוד מקור
InfoField

R code

install.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()


GNU head 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.

כיתובים

נא להוסיף משפט שמסביר מה הקובץ מייצג

פריטים שמוצגים בקובץ הזה

מוצג

21 באוקטובר 2017

image/svg+xml

היסטוריית הקובץ

ניתן ללחוץ על תאריך/שעה כדי לראות את הקובץ כפי שנראה באותו זמן.

תאריך/שעהתמונה ממוזערתממדיםמשתמשהערה
נוכחית23:00, 21 באוקטובר 2017תמונה ממוזערת לגרסה מ־23:00, 21 באוקטובר 2017‪309 × 684‬ (95 ק"ב)HLHJTook out background and cropped using Inkscape
21:13, 21 באוקטובר 2017תמונה ממוזערת לגרסה מ־21:13, 21 באוקטובר 2017‪391 × 810‬ (63 ק"ב)HLHJUser created page with UploadWizard

הדף הבא משתמש בקובץ הזה:

שימוש גלובלי בקובץ

אתרי הוויקי השונים הבאים משתמשים בקובץ זה:

מטא־נתונים