# NOT RUN {
set.seed(12345)
p <- polynom::polynomial(rpois(rgeom(1,.2)+1,2))
q <- polynom::polynomial(rpois(rgeom(1,.2)+1,2))
p
q
p * q
as.numeric(p * q) # 9 30 30 18 19 14 7 3
polyMul(p, q)
polyMul(q, p)
# clean up
# rm(p, q)
# }
Run the code above in your browser using DataLab