# NOT RUN {
# ---
# case of real matrix argument
m <- matrix(1:12,3,4)
m
t(m) # the \code{base::t()} function
# ---
# case of polynomial matrix argument
pa <- polyMgen.a()
pa
dim(pa) # 2 x 3
pm <- t(pa)
pm
dim(pm) # 3 x 2
class(pm) # "polyMdlist" "polyMatrix"
# clean up
# rm(m,pd)
# }
Run the code above in your browser using DataLab