# NOT RUN {
data(Election2005)
# }
# NOT RUN {
set.seed(345456)
election05_small <- Election2005[,sample(5:70,10)]
# Use correlation, distance correlation and a spline based
# measure as scagnostics.
scagdf <- scag2sdf(election05_small,
scagfun.list=
list(cor=cor,dcor2d=dcor2d,splines2d=splines2d))
head(scagdf$sdf)
# Use sperman correlation
scagdf <- scag2sdf(election05_small,
scagfun.list=
list(cor=cor,dcor2d=dcor2d, splines2d=splines2d),
arguments.list =
list(list(method="spearman"),NULL,NULL))
# }
Run the code above in your browser using DataLab