#Example 1
# Load tubes
data("tube_A")
data("tube_B")
nonIntrinsic_mean<-
nonIntrinsic_mean_tube(tubes = list(tube_A,tube_B),
plotting = FALSE)
# Plotting
if (FALSE) {
plot_Elliptical_Tube(tube = nonIntrinsic_mean,
plot_frames = FALSE,
plot_skeletal_sheet = FALSE,
plot_r_project = FALSE,
plot_r_max = FALSE,
add = FALSE)
}
#Example 2
data("simulatedColons")
nonIntrinsic_mean<-
nonIntrinsic_mean_tube(tubes = simulatedColons,
plotting = FALSE)
# Plotting
if (FALSE) {
plot_Elliptical_Tube(tube = nonIntrinsic_mean,
plot_frames = FALSE,
plot_skeletal_sheet = FALSE,
plot_r_project = FALSE,
plot_r_max = FALSE,
add = FALSE)
}
Run the code above in your browser using DataLab