File:Correlation examples2.svg
Материал из Викисклада, хранилища свободных медиафайлов
Перейти к навигации
Перейти к поиску
Размер этого PNG-превью для исходного SVG-файла: 506 × 231 пкс. Другие разрешения: 320 × 146 пкс | 640 × 292 пкс | 1024 × 467 пкс | 1280 × 584 пкс | 2560 × 1169 пкс.
Исходный файл (SVG-файл, номинально 506 × 231 пкс, размер файла: 2,18 МБ)
Сведения о файле
Структурированные данные
Краткие подписи
Краткое описание
[править]ОписаниеCorrelation examples2.svg |
English: redesign File:Correlation_examples.png using vector graphics (SVG file) |
Дата | |
Источник | Собственная работа, original uploader was Imagecreator |
Автор | DenisBoigelot, original uploader was Imagecreator |
Права (Повторное использование этого файла) |
Released into the public domain (by the authors). |
Другие версии |
Производные работы от этого файла: 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
}
Лицензирование
[править]Я, владелец авторских прав на это произведение, добровольно публикую его на условиях следующей лицензии:
Этот файл доступен на условиях Creative Commons CC0 1.0 Универсальной передачи в общественное достояние (Universal Public Domain Dedication). | |
Лица, связанные с работой над этим произведением, решили передать данное произведение в общественное достояние, отказавшись от всех прав на произведение по всему миру в рамках закона об авторских правах (а также связанных и смежных прав), в той степени, которую допускает закон. Вы можете копировать, изменять, распространять, исполнять данное произведение в любых целях, в том числе в коммерческих, без получения на это разрешения автора.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse |
История файла
Нажмите на дату/время, чтобы увидеть версию файла от того времени.
Дата/время | Миниатюра | Размеры | Участник | Примечание | |
---|---|---|---|---|---|
текущий | 06:00, 10 мая 2011 | 506 × 231 (2,18 МБ) | DenisBoigelot (обсуждение | вклад) | {{Information |Description ={{en|1=fd}} |Source ={{own}} |Author =DenisBoigelot |Date = |Permission = |other_versions = }} fjdk |
Вы не можете перезаписать этот файл.
Использование файла
Следующие 3 страницы используют этот файл:
Глобальное использование файла
Данный файл используется в следующих вики:
- Использование в ast.wikipedia.org
- Использование в as.wikipedia.org
- Использование в be.wikipedia.org
- Использование в bh.wikipedia.org
- Использование в bn.wikipedia.org
- Использование в bs.wikipedia.org
- Использование в ca.wikipedia.org
- Использование в cs.wikipedia.org
- Использование в el.wikipedia.org
- Использование в en.wikipedia.org
- Использование в en.wikiversity.org
- Использование в en.wiktionary.org
- Использование в es.wikipedia.org
- Использование в fa.wikipedia.org
- Использование в fi.wikipedia.org
- Использование в fi.wiktionary.org
- Использование в fr.wikipedia.org
- Использование в ga.wikipedia.org
- Использование в ja.wikipedia.org
- Использование в jv.wikipedia.org
- Использование в ko.wikipedia.org
- Использование в pt.wikipedia.org
- Использование в ru.wikipedia.org
- Использование в sl.wikipedia.org
- Использование в sr.wikipedia.org
- Использование в sv.wikipedia.org
- Использование в tl.wikipedia.org
- Использование в uk.wikipedia.org
- Использование в www.wikidata.org
- Использование в zh-yue.wikipedia.org
- Использование в zh.wikipedia.org
Метаданные
Файл содержит дополнительные данные, обычно добавляемые цифровыми камерами или сканерами. Если файл после создания редактировался, то некоторые параметры могут не соответствовать текущему изображению.
Краткое название | R SVG Plot |
---|---|
Название изображения | R SVG Plot with tooltips! (mode=1) |
Структурированные данные
Элементы, изображённые на этом файле
изображённый объект
У этого свойства есть некоторое значение без элемента в
9 мая 2011
image/svg+xml
31cfb22bd2b6ebd79849d3d8a0f44e93c16c64af
2 285 771 байт
231 пиксель
506 пиксель
Скрытые категории: