# NOT RUN {
data(oils)
res<-interscal(oils)
class(res$Sym.Components) <- c('sym.data.table')
sym.scatterplot(res$Sym.Components[,1], res$Sym.Components[,2],
labels=TRUE,col='red',main='Interscal CFA Data')
sym.scatterplot3d(res$Sym.Components[,1], res$Sym.Components[,2],
res$Sym.Components[,3],color='blue',
labels=TRUE,main='Interscal CFA Data')
sym.scatterplot.ggplot(res$Sym.Components[,1],res$Sym.Components[,2],
labels=TRUE)
# }
Run the code above in your browser using DataLab