# NOT RUN {
pM <- polyMgen.d(2,2,rawData=
ch2pn(c("-3+s^3","2+4*s","s^2","1"),symb="s"))
pM
# -3 + x^3 x^2
# 2 + 4*x 1
symb(pM) # "x"
pM <- polyMgen.d(2,2,rawData=
ch2pn(c("-3+x^3","2+4*x","x^2","1")),symb="L")
pM
# -3 + L^3 L^2
# 2 + 4*L 1
symb(pM) # "L"
# clean up
# rm(pM)
# }
Run the code above in your browser using DataLab