Displaying 1 result from an estimated 1 matches for "cooplot".
Did you mean:
coplot
2007 Jun 05
2
biplot package
...hl = t(h)
})
gencolnames = paste('PC', 1:n.values, sep='')
rownames(g) = rownames
colnames(g) = gencolnames
rownames(hl) = colnames
colnames(hl) = gencolnames
coo = rbind(g, hl)
rownames(coo) = c(rownames, colnames)
colnames(coo) = gencolnames
cooplot = rbind(g, hl*var.red)
cooplot = rbind(cooplot, rep(0, n.values)) # to correct visualization
if(plot) {
if(n.values == 2) {
plot(cooplot,
xlab='PC1', ylab='PC2',
type='n')
text(x=g[,1], y=g[,2],
labels=rownames...