ginkgoseed | R Documentation |
The data consist of the boundary data of four side projections of G. biloba (Cultivar 'Fozhi') seeds sampled at Nanjing Forestry University campus on September 23, 2021.
data(ginkgoseed)
In the data set, there are three columns of variables: Code
, x
, and y
.
Code
saves the codes of individual fruit;
x
saves the x
coordinates of the side projections of seeds in the Cartesian coordinate system (cm);
and y
saves the y
coordinates of the side projections of seeds in the Cartesian coordinate system (cm).
Tian, F., Wang, Y., Sandhu, H.S., Gielis, J., Shi, P. (2020) Comparison of seed morphology of two ginkgo cultivars.
Journal of Forestry Research 31, 751-
758. \Sexpr[results=rd]{tools:::Rd_expr_doi("10.1007/s11676-018-0770-y")}
data(ginkgoseed)
uni.C <- sort( unique(ginkgoseed$Code) )
ind <- 1
Data <- ginkgoseed[ginkgoseed$Code==uni.C[ind], ]
x0 <- Data$x
y0 <- Data$y
Res1 <- adjdata(x0, y0, ub.np=2000, len.pro=1/20)
dev.new()
plot( Res1$x, Res1$y, asp=1, cex.lab=1.5, cex.axis=1.5, type="l",
xlab=expression(italic("x")), ylab=expression(italic("y")) )
x1 <- Res1$x
y1 <- Res1$y
x0.ini <- mean( x1 )
y0.ini <- mean( y1 )
theta.ini <- pi/4
a.ini <- 1
n1.ini <- seq(0.6, 1, by=0.1)
n2.ini <- 1
n3.ini <- 1
ini.val <- list(x0.ini, y0.ini, theta.ini,
a.ini, n1.ini, n2.ini, n3.ini)
Res2 <- fitGE( GE, x=x1, y=y1, ini.val=ini.val,
m=2, simpver=5, nval=1, unit="cm",
par.list=FALSE, fig.opt=TRUE, angle=NULL,
control=list(reltol=1e-20, maxit=20000),
np=2000 )
graphics.off()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.