# \donttest{
P<-c(1,10,3); Q<-c(1,1,3);
vecs<-rbind(P,Q)
Line3D(P,Q,.1)
Line3D(P,Q,.1,dir.vec=FALSE)
tr<-range(vecs);
tf<-(tr[2]-tr[1])*.1
#how far to go at the lower and upper ends in the x-coordinate
tsq<-seq(-tf*10-tf,tf*10+tf,l=3) #try also l=10, 20 or 100
lnPQ3D<-Line3D(P,Q,tsq)
lnPQ3D
print(lnPQ3D)
typeof(lnPQ3D)
attributes(lnPQ3D)
# }
Run the code above in your browser using DataLab