x <- rexp(100) y <- 1/x + rnorm(100) summary(data.frame(y=y,x=x))
Standard input is empty
y x Min. :-2.2062 Min. :0.02252 1st Qu.: 0.4317 1st Qu.:0.24369 Median : 1.9448 Median :0.74228 Mean : 3.6035 Mean :1.09802 3rd Qu.: 4.5519 3rd Qu.:1.48192 Max. :44.1370 Max. :5.54363