Adverse Drug Events, first 4 PCs

library(knitr)
library(rgl)
library(plot3D)
knitr::opts_chunk$set(echo = TRUE)
knit_hooks$set(webgl = hook_webgl)

R Markdown

load("ADEs.prcomp.rdata")
load("ADEs.hclust.rdata")
open3d()

## wgl 
##   1

plot3d(ADEs.prcomp$x[,1],ADEs.prcomp$x[,2], ADEs.prcomp$x[,3], col=ADEs.hclust$cluster)

You must enable Javascript to view this page properly.