- Melt <- melt(t(model$phi[, , k1] - model$phi[, , k2]))
- gDiff <- ggplot(data = Melt, aes(x = Var1, y = Var2, fill = value)) +
- geom_tile() + scale_fill_gradient2(low = "blue", high = "red", mid = "white", midpoint = 0,
- space = "Lab") + ggtitle(paste("Difference between regression matrices in cluster",
+ Melt <- reshape2::melt(t(model$phi[, , k1] - model$phi[, , k2]))
+ gDiff <- ggplot2::ggplot(data = Melt, ggplot2::aes(x = Var1, y = Var2, fill = value)) +
+ ggplot2::geom_tile() + ggplot2::scale_fill_gradient2(low = "blue", high = "red", mid = "white", midpoint = 0,
+ space = "Lab") + ggplot2::ggtitle(paste("Difference between regression matrices in cluster",