data.frame(x=xvar, y=yvar, z=zvar)

> xvar <- 1:20 + rnorm(20, sd=3)  ## 표준편차 3 으로하여 20개의 값을 생성한다

> zvar <- 1:20/4 + rnorm(20, sd=2)   ## 표준편차 2 으로하여 20개의 값을 생성하고 각각을 4로 나눈다

> yvar <- -2*xvar + xvar*zvar/5 +3 +rnorm(20, sd= 4)