starfish | R Documentation |
The data consist of the boundary data of eight sea stars from five species.
data(starfish)
In the data set, there are four columns of variables: Code
, LatinName
, x
, and y
.
Code
saves the codes of individual sea stars;
LatinName
saves the Latin names of the eight sea stars;
x
saves the x
coordinates of the eight sea stars in the Cartesian coordinate system (cm);
and y
saves the y
coordinates of the eight sea stars in the Cartesian coordinate system (cm).
In Code
, codes 1-9 represent Anthenoides tenuis, Culcita schmideliana sample 1,
Culcita schmideliana sample 2, Culcita schmideliana sample 3, Stellaster equestris, Tosia australis,
Tosia magnifica sample 1, and Tosia magnifica sample 2, respectively. See Table A1 published in Shi et al. (2020).
Shi, P., Ratkowsky, D.A., Gielis, J. (2020) The generalized Gielis geometric equation and its application. Symmetry 12, 645. \Sexpr[results=rd]{tools:::Rd_expr_doi("10.3390/sym12040645")}
data(starfish)
uni.C <- sort( unique(starfish$Code) )
ind <- 2
Data <- starfish[starfish$Code==uni.C[ind], ]
x0 <- Data$x
y0 <- Data$y
dev.new()
plot( x0, y0, asp=1, type="l", cex.lab=1.5, cex.axis=1.5,
xlab=expression(italic("x")), ylab=expression(italic("y")) )
length(x0)
Res1 <- adjdata(x0, y0, ub.np=400, times=1.2, len.pro=1/20)
x1 <- Res1$x
y1 <- Res1$y
dev.new()
plot( x1, y1, asp=1, type="l", cex.lab=1.5, cex.axis=1.5,
xlab=expression(italic("x")), ylab=expression(italic("y")) )
length(x1)
graphics.off()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.