set.seed(1337) X <- sample(c('A','B','C','D','E','F'), 100, replace=TRUE) dat <- data.frame(X = X) pareto(dat, x = 'X')
set.seed(1337) X <- rnorm(100) Y <- 0.5*X + rnorm(100) dat <- data.frame(X = X, Y = Y) scat(dat, x = 'X', y = 'Y', line = 'linear', se = TRUE, marg = 'dens')
X <- sample(c('A','B','C','D','E','F'), 100, replace=TRUE)
dat <- data.frame(X = X)
pareto(dat, x = 'X')
X <- rnorm(100)
Y <- 0.5*X + rnorm(100)
dat <- data.frame(X = X, Y = Y)
scat(dat, x = 'X', y = 'Y', line = 'linear', se = TRUE, marg = 'dens')