Fájl:Simpsons-vector.svg
Ugrás a navigációhoz
Ugrás a kereséshez
Ennek a(z) SVG fájlnak ezen PNG formátumú előnézete: 430 × 430 képpont. További felbontások: 240 × 240 képpont | 480 × 480 képpont | 768 × 768 képpont | 1 024 × 1 024 képpont | 2 048 × 2 048 képpont.
Eredeti fájl (SVG fájl, névlegesen 430 × 430 képpont, fájlméret: 5 KB)
Összefoglaló
| Leírás | Illustration of Simpson's paradox applied to vectors | ||
| Dátum | |||
| Forrás | A feltöltő saját munkája | ||
| Szerző | Schutz | ||
| SVG kód |
| ||
| Forráskód | R codesuccess1 <- c( 8, 1)
total1 <- c(10,10)
success2 <- c( 6, 3)
total2 <- c( 6,17)
printaddvec <- function( vec1, vec2, ...) {
segments( vec1[1], vec1[2], vec1[1]+vec2[1], vec1[2]+vec2[2], lty=3, ... )
segments( vec2[1], vec2[2], vec1[1]+vec2[1], vec1[2]+vec2[2], lty=3, ... )
arrows(0,0, vec1[1], vec1[2], angle=20, code=2, lwd=2, ...)
arrows(0,0, vec2[1], vec2[2], angle=20, code=2, lwd=2, ...)
arrows(0,0, vec1[1]+vec2[1], vec1[2]+vec2[2], angle=20, code=2,
lwd=2, lty=2, ...)
# Redraw the end of the arrows
arrows(0.99*(vec1[1]+vec2[1]), 0.99*(vec1[2]+vec2[2]),
vec1[1]+vec2[1], vec1[2]+vec2[2], code=2, lwd=2, angle=20, ...)
}
postscript("simpsons-vector.eps", paper="special", height=5, width=5,
horizontal=F)
par(xaxs="i")
par(yaxs="i")
par(cex=1.2)
par(las=1)
par(mgp=c(2.5 ,1 ,0))
par(mar=c(4.1, 4.1, 0.6, 0.6))
plot(0, type="n", xlim=c(0,25), ylim=c(0,10), pty="s", xlab="Total", ylab="Successes")
printaddvec( c(total1[1], success1[1]), c(total1[2], success1[2]), col="blue")
printaddvec( c(total2[1], success2[1]), c(total2[2], success2[2]), col="red")
text(total1[2], success1[2]+0.0, "1", pos=4, col="blue", cex=1.2)
text(total2[2], success2[2]+0.0, "1", pos=4, col="red", cex=1.2)
text(total1[1]+0.0, success1[1], "2", pos=3, col="blue", cex=1.2)
text(total2[1]+0.0, success2[1], "2", pos=3, col="red", cex=1.2)
text(sum(total1), sum(success1)+0.0, "+", pos=3, col="blue", cex=1.2)
text(sum(total2), sum(success2)+0.0, "+", pos=3, col="red", cex=1.2)
dev.off()
|
The graphic was created by User:Schutz for Wikipedia on 26 August 2007, using the R statistical project. The program that generated and exported the graphic is given above; the uploaded version was generated by converting the EPS file generated by R to SVG format using pstoedit command. The layout was slightly modified using Inkscape before upload.
Licenc
Én, e mű szerzője a művemet az alábbi licencek alatt teszem közzé:
|
Ez a fájl szabadon másolható, terjeszthető és/vagy módosítható a GNU Szabad Dokumentációs Licenc feltételei alapján, az 1.2 vagy későbbi, a Free Software Foundation által publikált Nem Változtatható szakaszok, Címlapszövegek és Hátlapszövegek nélküli változat szerint. E licenc egy példánya a GNU Szabad Dokumentációs Licenc című fejezetben olvasható. |
Ez a fájl a Creative Commons Nevezd meg! – Így add tovább! 3.0 Unported, 2.5 Általános, 2.0 Általános és 1.0 Általános licencek alapján használható fel.
- A következőket teheted a művel:
- megoszthatod – szabadon másolhatod, terjesztheted, bemutathatod és előadhatod a művet
- feldolgozhatod – származékos műveket hozhatsz létre
- Az alábbi feltételekkel:
- Nevezd meg! – A szerzőt megfelelően fel kell tüntetned, hivatkozást kell létrehoznod a licencre és jelezned kell, ha a művön változtatást hajtottál végre. Ezt bármilyen észszerű módon megteheted, kivéve oly módon, ami azt sugallná hogy a jogosult támogat téged vagy a felhasználásod körülményeit.
- Így add tovább! – Ha megváltoztatod, átalakítod, feldolgozod ezt a művet, a közreműködésedet csak az eredetivel megegyező vagy hasonló licenc alatt terjesztheted.
A mű a fenti licencek bármelyike szerint felhasználható.
Fájltörténet
Kattints egy időpontra, hogy a fájl akkori állapotát láthasd.
| Dátum/idő | Bélyegkép | Felbontás | Feltöltő | Megjegyzés | |
|---|---|---|---|---|---|
| aktuális | 2018. június 10., 19:01 | | 430 × 430 (5 KB) | wikimediacommons>JoKalliauer | <g transform="scale(1000)"> kerning error: bugzilla:34947 |
Fájlhasználat
Az alábbi lap használja ezt a fájlt:
