پرونده:Correlation_examples2.svg
From Wikipedia, the free encyclopedia
پروندهٔ اصلی (پروندهٔ اسویجی، با ابعاد ۵۰۶ × ۲۳۱ پیکسل، اندازهٔ پرونده: ۲٫۱۸ مگابایت)
این پرونده در ویکیانبار موجود است. محتویات صفحهٔ توصیف آن در زیر نمایش داده میشود. |
خلاصه
توضیح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
}
اجازهنامه
این پرونده تحت CC0 1.0 Universal Public Domain Dedication کریتیو کامنز قابل دسترسی است. | |
کسی که اثری را با این سند همراه کرده است، با چشمپوشی از تمام حقوق خود نسبت به اثر در جهان تحت قانون کپیرایت و همهٔ حقوق قانونی مرتبط یا همسایهای که او در اثر داشته است، تا حد مجاز در قانون، آن را به مالکیت عمومی اهدا کرده است. شما میتوانید بدون گرفتن اجازه این اثر را تکثیر کنید، تغییر دهید، منتشر کنید یا دوباره ایجاد کنید، حتی اگر مقاصد تجاری داشته باشید.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse |
آیتمهایی که در این پرونده نمایش داده شدهاند
توصیفها
این خصوصیت مقداری دارد اما نامشخص است.
۹ مهٔ 2011
source of file انگلیسی
original creation by uploader انگلیسی
image/svg+xml
checksum انگلیسی
31cfb22bd2b6ebd79849d3d8a0f44e93c16c64af
۲٬۲۸۵٬۷۷۱ بایت
۲۳۱ پیکسل
۵۰۶ پیکسل
تاریخچهٔ پرونده
روی تاریخ/زمانها کلیک کنید تا نسخهٔ مربوط به آن هنگام را ببینید.
تاریخ/زمان | بندانگشتی | ابعاد | کاربر | توضیح | |
---|---|---|---|---|---|
کنونی | ۱۰ مهٔ ۲۰۱۱، ساعت ۰۶:۰۰ | ۵۰۶ در ۲۳۱ (۲٫۱۸ مگابایت) | DenisBoigelot | {{Information |Description ={{en|1=fd}} |Source ={{own}} |Author =DenisBoigelot |Date = |Permission = |other_versions = }} fjdk |
کاربرد پرونده
صفحههای زیر از این تصویر استفاده میکنند:
کاربرد سراسری پرونده
ویکیهای دیگر زیر از این پرونده استفاده میکنند:
- کاربرد در ast.wikipedia.org
- کاربرد در as.wikipedia.org
- کاربرد در be.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
- کاربرد در 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) |