# \donttest{
da<-"https://github.com/pasraia/RRmorph_example_data/raw/refs/heads/main/RRmorphdata.rda"
download.file(url=da,destfile = paste0(tempdir(),"/RRmorphdata.rda"))
load(paste0(tempdir(),"/RRmorphdata.rda"))
require(rgl)
require(Morpho)
pca<-procSym(endo.set)
ldm<-endo.set[,,"Homo_sapiens"]
sur<-endo.sur[["Homo_sapiens"]]
plotland(pca=pca,sel=1,refsur = sur,refmat = ldm)
# }
Run the code above in your browser using DataLab