「アイラヴユー」を伝えるR関数

SPSSをやめて、Rをはじめたら彼女ができました！（東京都・大学院生）

以下をコンソールにコピペしてください。

ILoveYou <- function(n = 500, col=2, col.bg=8,pch=1){
  X <-runif(n,-1,1)
  Y <-runif(n,-1,1.5)
    a <- ifelse( (Y>(X^2)^(1/3)-sqrt(1-X^2))&(Y<sqrt(1-X^2)+(X^2)^(1/3))
       ,col,col.bg)
  plot(Y~X,col=a,pch=pch)
}

つかいかた

ILoveYou(n, col.obj, col.bg,pch)

n

プロットする数

col.obj

色

col.bg

背景の色

pch

プロットの形

使用例

ILoveYou(10)

え、なに？

ILoveYou(100)

だから、なんなの？

ILoveYou(500)

え？もしかして・・・？

ILoveYou(5000)

きゃー！！！すてきー！！！

和風

ILoveYou(2000,pch=3)