# R/Lines3d.R In p3d: Plot 3d data and fitted surfaces

#### Documented in Lines3dLines3d.default

```##
## p3d:Lines3d.R
## 2011-12-22
##
## merged Lines3d.R and Lines3d.default.R  10-30-2011 (MF)
#  fixed args for Lines3d.default as an S3 method
# TODO: obj serves no useful role and should be deleted if no other Linesed methods contemplated -- removed 11-04-2011 (GM)

Lines3d <-
function( ... ) {
"
Lines3d allows arguments to be vectors or matrices whose corresponding
axes as specified with names of the form 'x', 'xy', 'yxz', etc.
"
UseMethod("Lines3d")
}

Lines3d.default <-
function( ... )  {
a <- args3d(...)
# disp(a)
xyz <- a\$x
if (nrow(xyz) == 0) return( invisible(0))
nas <- apply(xyz, 1, function(x) any(is.na(x)))
inds <- 1:nrow(xyz)
inds[nas] <- NA
inds <-  cbind(inds[-length(inds)],inds[-1])
inds <- na.omit(inds)
inds <- c(t(inds))
xyz <- xyz[inds,]
a\$x <- xyz
# names(a) <- sub('^lwd\$','size', names(a))
# do.call("rgl.lines", a)
do.call("segments3d", a)
}

# Lines3d( y = 1, z = 1.1, x =c(0,2), col = 'red')
# Lines3d( y = 1.1, z = 1.1, x =c(0,2), color = 'red')

# Lines3d( y = 1, z = 1.2, x =c(0,2))
# Lines3d( y = 1.1, z = 1.2, x =c(0,2))

# Lines3d( y = 1, z = 1.5, x =c(0,2), col = 'red3', lwd = 3)
# Lines3d( y = 1.1, z = 1.5, x =c(0,2), color = 'red3', lwd = 3)
# Lines3d( y = 1.1, z = 1.8, x =c(0,2),col='red',lwd = 3)
# material3d()
```

## Try the p3d package in your browser

Any scripts or data that you put into this service are public.

p3d documentation built on May 2, 2019, 5:25 p.m.