data(Neocinnamomum)
uni.C <- sort( unique(Neocinnamomum$Code) )
ind <- 2
Data <- Neocinnamomum[Neocinnamomum$Code==uni.C[ind], ]
x0 <- Data$x
y0 <- Data$y
length(x0)
Res1 <- adjdata(x0, y0, ub.np=200, len.pro=1/20)
x1 <- Res1$x
y1 <- Res1$y
length(x1)
dev.new()
plot( Res1$x, Res1$y, asp=1, cex.lab=1.5, cex.axis=1.5,
xlab=expression(italic("x")), ylab=expression(italic("y")) )
graphics.off()
Run the code above in your browser using DataLab