Fichier:Pre-term corticosteroid data.svg

Fichier d’origine(Fichier SVG, nominalement de 684 × 309 pixels, taille : 95 kio)

Ce fichier et sa description proviennent de Wikimedia Commons.

Description

Description
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.
Date
Source 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.
Auteur Thomas Lumley, User:HLHJ
SVG information
InfoField
 
Le code de ce fichier SVG est valide.
 
Ce graphique a été créé avec R
 
Ce fichier SVG utilise du texte encapsulé pouvant facilement être traduit.
Code source
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 Cette œuvre est un logiciel libre ; vous pouvez le redistribuer et/ou le modifier selon les termes de la Licence publique générale GNU telle que publiée par la Free Software Foundation ; version 2. Cette œuvre est distribuée dans l'espoir qu'elle soit utile, mais SANS AUCUNE GARANTIE ; sans même de garanties implicites de COMMERCIABILITÉ et de CONFORMITÉ À UNE UTILISATION PARTICULIÈRE. Voir la version 2 de la Licence publique générale GNU pour plus de détails.

Légendes

Ajoutez en une ligne la description de ce que représente ce fichier

Éléments décrits dans ce fichier

dépeint

image/svg+xml

Historique du fichier

Cliquer sur une date et heure pour voir le fichier tel qu'il était à ce moment-là.

Date et heureVignetteDimensionsUtilisateurCommentaire
actuel21 octobre 2017 à 22:00Vignette pour la version du 21 octobre 2017 à 22:00684 × 309 (95 kio)HLHJTook out background and cropped using Inkscape
21 octobre 2017 à 20:13Vignette pour la version du 21 octobre 2017 à 20:13810 × 391 (63 kio)HLHJUser created page with UploadWizard

La page suivante utilise ce fichier :

Usage global du fichier

Les autres wikis suivants utilisent ce fichier :

Métadonnées