# NOT RUN {
data <- crazyfy(iris[,1:4])
(anom <- get_anomalies(strange(data)))
# }
# NOT RUN {
library(dplyr)
ss <- iris %>% select(-Species) %>%
crazyfy() %>%
strange(weird="autoencode") %>%
singularize(methods="norm",stacks="avg")
anom2 <- ss %>% get_anomalies(nmin=2, nmax=4)
ss %>% plot(type="n",score="N_anom_norm_avg",anomaly_id=anom2[1])
# }
Run the code above in your browser using DataLab