# NOT RUN {
set.seed(1)
pm <- polyMgen.a(rand=function(x) rpois(x,1))
pa <- polyMconvert(pm,"polyMarray") # class: "polyMarray" "polyMatrix"
pb <- polyMconvert(pm,"polyMbroad") # class: "polyMbroad" "polyMatrix"
pc <- polyMconvert(pm,"polyMcells") # class: "polyMcells" "polyMatrix"
pd <- polyMconvert(pm,"polyMdlist") # class: "polyMdlist" "polyMatrix"
# clean up
# rm(pm)
# the default, the "matrix" print image style: matrix of polynomials
pa
pb
pc
pd
# the three other print image style:
print(pa,"poly")
print(pa,"broad")
print(pa,"raw")
print(pb,"poly")
print(pb,"broad")
print(pb,"raw")
print(pc,"poly")
print(pc,"broad")
print(pc,"raw")
print(pd,"poly")
print(pd,"broad")
print(pd,"raw")
# clean up
# rm(pa,pb,pc,pd)
varma <- polyMgen.varma()
varma
print(varma,"matrix") # the same print image
print(varma,"poly")
print(varma,"broad")
print(varma,"raw")
# clean up
# rm(varma)
# }
Run the code above in your browser using DataLab