# NOT RUN {
data(Election2005)
# }
# NOT RUN {
set.seed(345456)
election05_small <- Election2005[,sample(5:70,10)]
scagdf <- sdf(election05_small)
head(scagdf$sdf)
# Use only "Outlying", "Clumpy" and "1-Convex"
scagdf_sel <- sdf(election05_small,selection=c("Outlying", "Clumpy","1-Convex"))
# the same as
scagdf_sel <- sdf(election05_small,selection=c(1,3,6))
# }
Run the code above in your browser using DataLab