
# NOT RUN {
data(facedata)
res.vertex.ps<-sym.interval.pc(facedata,'vertex',150,FALSE,FALSE,TRUE)
class(res.vertex.ps$sym.prin.curve) <- c('sym.data.table')
sym.scatterplot(res.vertex.ps$sym.prin.curve[,1], res.vertex.ps$sym.prin.curve[,2],
labels=TRUE,col='red',main='PSC Face Data')
# }
Run the code above in your browser using DataLab