pdf("rpd2_2.pdf") A <- matrix(c(2,4,6,1,2,3,5,7,9),byrow=T,ncol=3) detA <- det(A) detA dev.off()