if (FALSE) {
set.seed(12)
x=rnorm(4); para1 = cbind(x, x-1,x+1); rownames(para1) = c("a","b","c","d")
x=rnorm(4)+1; para2 = cbind(x, x-1,x+1); rownames(para2) = c("a","b","e","f")
x=rnorm(3)+2; para3 = cbind(x, x-1,x+1); rownames(para3) = c("a","b","d")
paraplot(para1, para2, para3, para4=NULL, legpos=c(-1.5,6),
legtext=c("model 1","model 2","model 3"),annotate=TRUE)
paraplot(para1, legpos=c(-2,3), legtext="m1", annotate=TRUE)
}
Run the code above in your browser using DataLab