### Move to tempdir
wd <- getwd()
setwd(tempdir()); getwd()
### Generate artificial data
myCld <- gald3d()
### Distance between individual 1 and 3 (there are in the same group)
dist3d(myCld['traj'][1,,],myCld['traj'][3,,])
### Distance between individual 1 and 51 (there are in two different groups)
dist3d(myCld['traj'][1,,],myCld['traj'][51,,])
### Go back to current dir
setwd(wd)
Run the code above in your browser using DataLab