biogeom (version 1.4.3)

starfish: Boundary Data of Eight Sea Stars

Description

The data consist of the boundary data of eight sea stars from five species.

Usage

data(starfish)

Details

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).

References

Shi, P., Ratkowsky, D.A., Gielis, J. (2020) The generalized Gielis geometric equation and its application. Symmetry 12, 645. tools:::Rd_expr_doi("10.3390/sym12040645")

Examples

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()