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