if (FALSE) {
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