muscle_fiber_dat: Point cloud sampled from the muscle tissue cross-sectional...

In pterrace: Persistence Terrace for Topological Data Analysis

Description

A dataset containing 6,500 points: 5,000 points sampled from the muscle fiber image and 1,500 points sampled from the boundary lines of the image.

Usage

data(muscle_fiber_dat)

Format

A matrix of 6,500 rows and 2 columns

Examples

# load muscle fiber data
data(muscle_fiber_dat)

# input variables
Xlim <- c(-50,350)
Ylim <- c(-50,250)
lim <- cbind(Xlim, Ylim)
by <- 6
spseq <- seq(2,40,length.out = 9)

# compute persistence terrace
muscle_fiber_pt=computept(muscle_fiber_dat,sp=spseq,lim=lim,by=by)

## Not run: 
# compute persistence terrace with parallel option
spseq <- seq(2,40,length.out = 30)
two_circle_density_pt <- computept(muscle_fiber_dat,sp=spseq,lim=lim,by=by,par=TRUE)

## End(Not run)

# draw terrace area plot
terracearea(muscle_fiber_pt,dimension=1,maxheight=20)
# draw persistence terrace
plotpt(muscle_fiber_pt,cmax=12,dimension=1)

pterrace documentation built on May 2, 2019, 10:08 a.m.