## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(JSDNE)

## -----------------------------------------------------------------------------
library(JSDNE)
PCQDA_output <- PCQDA_result(WholeSurface, Apex)

## -----------------------------------------------------------------------------
library(JSDNE)
PCR_output <- PCR_result(WholeSurface, Apex)

## -----------------------------------------------------------------------------
library(JSDNE)
PCR_output <- PCR_result(WholeSurface, Apex)