File:Correlation examples2.svg
Aus Wikimedia Commons, dem freien Medienarchiv
Zur Navigation springen
Zur Suche springen
Größe der PNG-Vorschau dieser SVG-Datei: 506 × 231 Pixel. Weitere Auflösungen: 320 × 146 Pixel | 640 × 292 Pixel | 1.024 × 467 Pixel | 1.280 × 584 Pixel | 2.560 × 1.169 Pixel.
Originaldatei (SVG-Datei, Basisgröße: 506 × 231 Pixel, Dateigröße: 2,18 MB)
Dateiinformationen
Strukturierte Daten
Bildtexte
Beschreibung
[Bearbeiten]BeschreibungCorrelation examples2.svg |
English: redesign File:Correlation_examples.png using vector graphics (SVG file) |
Datum | |
Quelle | Eigenes Werk, original uploader was Imagecreator |
Urheber | DenisBoigelot, original uploader was Imagecreator |
Genehmigung (Weiternutzung dieser Datei) |
Released into the public domain (by the authors). |
Andere Versionen |
Abgeleitete Werke dieser Datei: CovrarianceCorrelation.svg File:Correlation_examples.png |
#Title: An example of the correlation of x and y for various distributions of (x,y) pairs
#Tags: Mathematics; Statistics; Correlation
#Author: Denis Boigelot
#Packets needed : mvtnorm (rmvnorm), RSVGTipsDevice (devSVGTips)
#How to use: output()
#
#This is an translated version in R of an Matematica 6 code by Imagecreator.
library(mvtnorm)
library(RSVGTipsDevice)
MyPlot <- function(xy, xlim = c(-4, 4), ylim = c(-4, 4), eps = 1e-15) {
title = round(cor(xy[,1], xy[,2]), 1)
if (sd(xy[,2]) < eps) title = "" # corr. coeff. is undefined
plot(xy, main = title, xlab = "", ylab = "",
col = "darkblue", pch = 16, cex = 0.2,
xaxt = "n", yaxt = "n", bty = "n",
xlim = xlim, ylim = ylim)
}
MvNormal <- function(n = 1000, cor = 0.8) {
for (i in cor) {
sd = matrix(c(1, i, i, 1), ncol = 2)
x = rmvnorm(n, c(0, 0), sd)
MyPlot(x)
}
}
rotation <- function(t, X) return(X %*% matrix(c(cos(t), sin(t), -sin(t), cos(t)), ncol = 2))
RotNormal <- function(n = 1000, t = pi/2) {
sd = matrix(c(1, 1, 1, 1), ncol = 2)
x = rmvnorm(n, c(0, 0), sd)
for (i in t)
MyPlot(rotation(i, x))
}
Others <- function(n = 1000) {
x = runif(n, -1, 1)
y = 4 * (x^2 - 1/2)^2 + runif(n, -1, 1)/3
MyPlot(cbind(x,y), xlim = c(-1, 1), ylim = c(-1/3, 1+1/3))
y = runif(n, -1, 1)
xy = rotation(-pi/8, cbind(x,y))
lim = sqrt(2+sqrt(2)) / sqrt(2)
MyPlot(xy, xlim = c(-lim, lim), ylim = c(-lim, lim))
xy = rotation(-pi/8, xy)
MyPlot(xy, xlim = c(-sqrt(2), sqrt(2)), ylim = c(-sqrt(2), sqrt(2)))
y = 2*x^2 + runif(n, -1, 1)
MyPlot(cbind(x,y), xlim = c(-1, 1), ylim = c(-1, 3))
y = (x^2 + runif(n, 0, 1/2)) * sample(seq(-1, 1, 2), n, replace = TRUE)
MyPlot(cbind(x,y), xlim = c(-1.5, 1.5), ylim = c(-1.5, 1.5))
y = cos(x*pi) + rnorm(n, 0, 1/8)
x = sin(x*pi) + rnorm(n, 0, 1/8)
MyPlot(cbind(x,y), xlim = c(-1.5, 1.5), ylim = c(-1.5, 1.5))
xy1 = rmvnorm(n/4, c( 3, 3))
xy2 = rmvnorm(n/4, c(-3, 3))
xy3 = rmvnorm(n/4, c(-3, -3))
xy4 = rmvnorm(n/4, c( 3, -3))
MyPlot(rbind(xy1, xy2, xy3, xy4), xlim = c(-3-4, 3+4), ylim = c(-3-4, 3+4))
}
output <- function() {
devSVGTips(width = 7, height = 3.2) # remove first and last line for no svg exporting
par(mfrow = c(3, 7), oma = c(0,0,0,0), mar=c(2,2,2,0))
MvNormal(800, c(1.0, 0.8, 0.4, 0.0, -0.4, -0.8, -1.0));
RotNormal(200, c(0, pi/12, pi/6, pi/4, pi/2-pi/6, pi/2-pi/12, pi/2));
Others(800)
dev.off() # remove first and last line for no svg exporting
}
Lizenz
[Bearbeiten]Ich, der Urheber dieses Werkes, veröffentliche es unter der folgenden Lizenz:
Diese Datei wird unter der Creative-Commons-Lizenz „CC0 1.0 Verzicht auf das Copyright“ zur Verfügung gestellt. | |
Die Person, die das Werk mit diesem Dokument verbunden hat, übergibt dieses weltweit der Gemeinfreiheit, indem sie alle Urheberrechte und damit verbundenen weiteren Rechte – im Rahmen der jeweils geltenden gesetzlichen Bestimmungen – aufgibt. Das Werk kann – selbst für kommerzielle Zwecke – kopiert, modifiziert und weiterverteilt werden, ohne hierfür um Erlaubnis bitten zu müssen.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse |
Dateiversionen
Klicke auf einen Zeitpunkt, um diese Version zu laden.
Version vom | Vorschaubild | Maße | Benutzer | Kommentar | |
---|---|---|---|---|---|
aktuell | 06:00, 10. Mai 2011 | 506 × 231 (2,18 MB) | DenisBoigelot (Diskussion | Beiträge) | {{Information |Description ={{en|1=fd}} |Source ={{own}} |Author =DenisBoigelot |Date = |Permission = |other_versions = }} fjdk |
Du kannst diese Datei nicht überschreiben.
Dateiverwendung
Die folgenden 3 Seiten verwenden diese Datei:
Globale Dateiverwendung
Die nachfolgenden anderen Wikis verwenden diese Datei:
- Verwendung auf ast.wikipedia.org
- Verwendung auf as.wikipedia.org
- Verwendung auf be.wikipedia.org
- Verwendung auf bh.wikipedia.org
- Verwendung auf bn.wikipedia.org
- Verwendung auf bs.wikipedia.org
- Verwendung auf ca.wikipedia.org
- Verwendung auf cs.wikipedia.org
- Verwendung auf el.wikipedia.org
- Verwendung auf en.wikipedia.org
- Verwendung auf en.wikiversity.org
- Verwendung auf en.wiktionary.org
- Verwendung auf es.wikipedia.org
- Verwendung auf fa.wikipedia.org
- Verwendung auf fi.wikipedia.org
- Verwendung auf fi.wiktionary.org
- Verwendung auf fr.wikipedia.org
- Verwendung auf ga.wikipedia.org
- Verwendung auf ja.wikipedia.org
- Verwendung auf jv.wikipedia.org
- Verwendung auf ko.wikipedia.org
- Verwendung auf pt.wikipedia.org
- Verwendung auf ru.wikipedia.org
- Verwendung auf sl.wikipedia.org
- Verwendung auf sr.wikipedia.org
- Verwendung auf sv.wikipedia.org
- Verwendung auf tl.wikipedia.org
- Verwendung auf uk.wikipedia.org
- Verwendung auf www.wikidata.org
- Verwendung auf zh-yue.wikipedia.org
- Verwendung auf zh.wikipedia.org
Metadaten
Diese Datei enthält weitere Informationen, die in der Regel von der Digitalkamera oder dem verwendeten Scanner stammen. Durch nachträgliche Bearbeitung der Originaldatei können einige Details verändert worden sein.
Kurztitel | R SVG Plot |
---|---|
Bildtitel | R SVG Plot with tooltips! (mode=1) |
Strukturierte Daten
In dieser Datei abgebildete Objekte
Motiv
Einige Werte ohne einen Wikidata-Eintrag
image/svg+xml
31cfb22bd2b6ebd79849d3d8a0f44e93c16c64af
2.285.771 Byte
231 Pixel
506 Pixel
Versteckte Kategorien: