Author: Eric Bridgeford
Date: 2020-06-22

# Class Dependence Simulations

#### Eric Bridgeford

#### 2020-06-22

    require(mgc)
    require(ggplot2)
    n=400
    d=2
    K=5

    plot_sim <- function(X, Y, name) {

      data <- data.frame(x1=X[,1], x2=X[,2], class=Y)
      ggplot(data, aes(x=x1, y=x2, color=class)) +
        geom_point() +
        xlab("x1") +
        ylab("x2") +
        ggtitle(name) +
        theme_bw()
    }

# Linear

    sim <- discr.sims.linear(n, d, K, signal.lshift=3)
    plot_sim(sim$X, sim$Y, "Linear")

# Spread

    sim <- discr.sims.fat_tails(n, d, K)
    plot_sim(sim$X, sim$Y, "Fat Tails")

# Cross

    sim <- discr.sims.cross(n, d, 2)
    plot_sim(sim$X, sim$Y, "Cross")

# Radial

    sim <- discr.sims.radial(n, d, K)
    plot_sim(sim$X, sim$Y, "Radial")