pdf("rpd2_1.pdf") T <- matrix(c(1,2,4,5,3,0),byrow=T,ncol=2) W <- matrix(c(-1,3),ncol=1) TW <- T %*% W T W TW dev.off()