n=10000
times=0
x=rnorm(n,2,1)
y=exp(0.3*x)
for(i in 1:n){
    if(x[i]<y[i]){
        times=times+1
    }
}
c('P'=times/n'y的平均值'=mean(y),'y的方差'=var(y),'相关系数'=cor(x,y))