stat645

Week 4

library(ggplot2)

x <- rep(c(0, 0.5, 1), each = 100)
y <- rep(c(0, 0.5, 0), each = 100)
z <- rep(c("a", "b", "c"), each = 100)

clust1 <- data.frame(
  x = x + rnorm(300, sd = 0.3), 
  y = y + rnorm(300, sd = 0.3), 
  z = z)
clust2 <- data.frame(
  x = x + rnorm(300, sd = 0.1), 
  y = y + rnorm(300, sd = 0.1), 
  z = z)