#### See Shi et al. (2025) for details #########################################
# Shi, P., Liu, X., Gielis, J., Beirinckx, B., Niklas, K.J. (2025)
# Comparison of six non-linear equations in describing the 2-D
# profiles of apical meristems. American Journal of Botany (under review).
################################################################################
data(SAMs)
uni.sam <- sort( unique(SAMs$Genus) )
ind <- 2
Data <- SAMs[SAMs$Genus==uni.sam[ind], ]
x0 <- Data$x
y0 <- Data$y
Res1 <- adjdata(x0, y0, ub.np=200, times=1.2, len.pro=1/20)
X <- Res1$x
Y <- Res1$y
dev.new()
plot( X, Y, pch=1, cex.lab=1.5, cex.axis=1.5,
xlab=expression(paste(italic(x), " (unitless)", sep="")),
ylab=expression(paste(italic(y), " (unitless)", sep="")) )
graphics.off()
Run the code above in your browser using DataLab