Plik:Pre-term corticosteroid data.svg

Treść strony nie jest dostępna w innych językach.
Ten plik jest umieszczony w Wikimedia Commons
Z Wikipedii, wolnej encyklopedii

Rozmiar pierwotny(Plik SVG, nominalnie 684 × 309 pikseli, rozmiar pliku: 95 KB)

Opis

Opis
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.
Data
Źródło 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.
Autor Thomas Lumley, User:HLHJ
SVG rozwój
InfoField
 
Kod źródłowy tego poprawny.
 
Ta grafika wektorowa została stworzona za pomocą R
 
This file uses translateable embedded text.
Kod źródłowy
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 To jest wolne oprogramowanie; możesz je dystrybuować oraz zmieniać zgodnie z warunkami Powszechnej Licencji Publicznej GNU opublikowanej przez Fundację Wolnego Oprogramowania; w wersji 2 tej licencji. To oprogramowanie rozpowszechniane jest z nadzieją, że będzie użyteczne, ale bez żadnej gwarancji; bez żadnej gwarancji przydatności handlowej lub przydatności do określonego celu. Zobacz wersję 2 Powszechnej Licencji Publiczne GNU w celu uzyskania dalszych informacji.

Podpisy

Dodaj jednolinijkowe objaśnienie tego, co ten plik pokazuje

Obiekty przedstawione na tym zdjęciu

przedstawia

image/svg+xml

Historia pliku

Kliknij na datę/czas, aby zobaczyć, jak plik wyglądał w tym czasie.

Data i czasMiniaturaWymiaryUżytkownikOpis
aktualny22:00, 21 paź 2017Miniatura wersji z 22:00, 21 paź 2017684 × 309 (95 KB)HLHJTook out background and cropped using Inkscape
20:13, 21 paź 2017Miniatura wersji z 20:13, 21 paź 2017810 × 391 (63 KB)HLHJUser created page with UploadWizard

Globalne wykorzystanie pliku

Ten plik jest wykorzystywany także w innych projektach wiki:

Metadane