Skip to content

Instantly share code, notes, and snippets.

@3inar

3inar/untitled-2017-10-18.R

Created October 18, 2017 13:34
Show Gist options
  • Save 3inar/e21b5428d87ecd9bb74a1cbc5738fb5a to your computer and use it in GitHub Desktop.
Save 3inar/e21b5428d87ecd9bb74a1cbc5738fb5a to your computer and use it in GitHub Desktop.
Download ZIP
2017-10-18 untitled from rstudio
Raw
untitled-2017-10-18.R
library(plyr)
# some very tight high-dimensional data vs some less tight HD data
big <- raply(75, rnorm(50))
small <- raply(75, rnorm(50, sd=1/50))
datas <- rbind(big, small)
colrs <- c(rep("black", 75), rep("red", 75))
plot(prcomp(datas)$x[, 1:2], pch=20, col=colrs)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment