# \donttest{
# Use 'iris' data
XX = as.matrix(iris[,1:4])
# Compute VR Diagram
homology = diagRips(XX)
# Plot with 'barcode'
opar <- par(no.readonly=TRUE)
plot(homology, method="barcode")
par(opar)
# }
Run the code above in your browser using DataLab