파일:Correlation_examples2.svg
From Wikipedia, the free encyclopedia
SVG 파일의 PNG 형식의 미리보기 크기: 506 × 231 픽셀. 다른 해상도: 320 × 146 픽셀 | 640 × 292 픽셀 | 1,024 × 467 픽셀 | 1,280 × 584 픽셀 | 2,560 × 1,169 픽셀
원본 파일 (SVG 파일, 실제 크기 506 × 231 픽셀, 파일 크기: 2.18 MB)
파일 설명
설명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 보편적 퍼블릭 도메인 귀속에 따라 이용할 수 있습니다. | |
저작물에 본 권리증서를 첨부한 자는 법률에서 허용하는 범위 내에서 저작인접권 및 관련된 모든 권리들을 포함하여 저작권법에 따라 전 세계적으로 해당 저작물에 대해 자신이 갖는 일체의 권리를 포기함으로써 저작물을 퍼블릭 도메인으로 양도하였습니다. 저작권자의 허락을 구하지 않아도 이 저작물을 상업적인 목적을 포함하여 모든 목적으로 복제, 수정·변경, 배포, 공연·실연할 수 있습니다.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse |
이 파일에 묘사된 항목
다음을 묘사함
위키데이터 항목 없는 어떤 값
9 5 2011
image/svg+xml
2,285,771 바이트
231 화소
506 화소
파일 역사
날짜/시간 링크를 클릭하면 해당 시간의 파일을 볼 수 있습니다.
날짜/시간 | 섬네일 | 크기 | 사용자 | 설명 | |
---|---|---|---|---|---|
현재 | 2011년 5월 10일 (화) 15:00 | 506 × 231 (2.18 MB) | DenisBoigelot | {{Information |Description ={{en|1=fd}} |Source ={{own}} |Author =DenisBoigelot |Date = |Permission = |other_versions = }} fjdk |
이 파일을 사용하는 문서
이 파일을 사용하고 있는 모든 위키의 문서 목록
다음 위키에서 이 파일을 사용하고 있습니다:
- 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에서 이 파일을 사용하고 있는 문서 목록
- 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) |