R语言 浪漫的R代码

genechip

n=50000;
r=0.7;r_e=(1-r*r)^.5;
X=rnorm(n);
Y=X*r+r_e*rnorm(n);
Y=ifelse(X>0,Y,-Y);
plot(X,Y,col="pink")

浪漫的R 代码

moshengren

沙发了。哈哈哈

tomorrow

这个更炫，Biostatistician(2)群小马巅巅  21:08:02 提供


n=50000;
r=0.7;r_e=(1-r*r)^.5;
X=rnorm(n);
Y=X*r+r_e*rnorm(n);
Y=ifelse(X>0,Y,-Y);
a<-sample(c(2,6,7,8),50000,T)
b<-sample(c(76,79,86,69),50000,T)
plot(X,Y,col=0)
text(X,Y,"lOVE",col=a)

survival

你们太厉害了{:soso_e179:}

sunny_shao

太酷了！！！！！！soooooo 牛！

liuyanbo0512

n=50000;
r=0.7;r_e=(1-r*r)^.5;
X=rnorm(n);
Y=X*r+r_e*rnorm(n);
#Y=ifelse(X>0,Y,-Y);
a<-sample(c(2,6,7,8),50000,T)
b<-sample(c(76,79,86,69),50000,T)
plot(X,Y,col=0)
text(X,Y,"lOVE",col=a)
######################
z=-Y
layout(matrix(1:2, 1, 2, byrow = TRUE))
plot(X,z,col=0,xlim=c(-4,0))
text(X,z,"O",col=a)
plot(X,Y,col=0,xlim=c(0,4))
text(X,Y,"O",col=a)

Brave_Heart

的确是好东西

RRookie

spectacular{:soso_e113:}

cyh_0825

Cool！！！

wanghonghong2

哈哈 so cool  厉害