Description Usage Arguments Author(s) Examples
This function plot one or more elements of an array of three diensional or two dimensional shapes
1 2 3 4 5 |
x |
numeric: a matrix kxm or an array kxmxn of landmark coordinates |
l |
numeric: is a vector indicating the number of variables of 1st array dimension to plot (default=c(1:dim(x)[1])) |
v |
numeric: is a vector indicating the number of variables of 2nd array dimension to plot (default=c(1:dim(x)[2])) |
ind |
numeric: is a vector indicating which elements of 3rd array dimension should be plotted (default=c(1:dim(x)[3])) |
group |
character vector: optional grouping variable; shapes will be colored according to group affiliation |
links |
numeric list: an optional list of vectors (default = NULL) indicating the links between landmarks |
xlim |
numeric vector: xlim argument in par() |
ylim |
numeric vector: ylim argument in par() |
col |
numeric: col argument in par() |
txt |
logical: if TRUE the text of ordinal landmarks number is plotted |
lwd |
numeric: lwd argument in par() for links |
pch |
numeric: pch argument in par() for points in 2D |
cex |
numeric: cex argument in par() for points |
asp |
numeric: giving the aspect ratio y/x (default=1) |
cextext |
numeric: size of the text |
xlab |
character: xlab argument in par() (default="") |
ylab |
character: ylab argument in par() (default="") |
zlab |
character: zlab argument in par() (default="") |
xaxt |
character: xaxt argument in par() (default="s") |
yaxt |
character: yaxt argument in par() (default="s") |
Paolo Piras
1 2 3 4 5 6 7 8 9 10 | ## Not run:
data(my2d)
linksdors<-list(c(1,2),c(37,7),c(12,4),c(27,28),c(25,21),c(38,40),c(9,10),c(2,3),c(3,4),c(1,7),c(1,6),c(3,5),c(6,40),c(5,9),c(40,8),c(8,9),c(1,7),c(7,6),c(3,4),c(4,5),c(39,38),c(38,35),c(35,37),c(37,39),c(35,34),c(34,33),c(33,32),c(32,31),c(31,30),c(30,29),c(29,37),c(37,36),c(36,29),c(28,31),c(28,30),c(13,10),c(10,11),c(11,12),c(12,13),c(13,14),c(14,16),c(16,17),c(17,20),c(20,19),c(19,18),c(18,12),c(18,15),c(15,12),c(21,19),c(21,20),c(24,25),c(25,26),c(26,27),c(27,24),c(26,24),c(24,23),c(23,22),c(22,8),c(8,2))
my2d<-procSym(my2d,CSinit=T,scale=F)
pc1seq<-scoresequencearray(my2d$mshape,min(my2d$PCscores[,1]),max(my2d$PCscores[,1]),1,my2d$PCs)
par(mfrow=c(4,4))
for(i in 1:dim(pc1seq)[3]){
plotmyarrays(pc1seq[,,i],links=linksdors,cex=0,txt=F)}
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.