library(tercen)
library(dplyr)
(ctx = tercenCtx()) %>%
select(.cindex, .rindex, .values) %>%
reshape2::acast(.cindex ~ .rindex, value.var='.values', fun.aggregate=mean) %>%
prcomp(scale=TRUE) %>%
predict() %>%
as_tibble() %>%
mutate(.cindex = seq_len(nrow(.))-1) %>%
ctx$addNamespace() %>%
ctx$save()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.