https://github.com/cran/pracma
Raw File
Tip revision: a850b1ad48fcaac7a21cb289147c932e23b23acb authored by HwB on 15 July 2011, 00:00:00 UTC
version 0.7-3
Tip revision: a850b1a
polymul.R
##
##  p o l y m u l . R  Test suite
##


polymul <- pracma::polymul

identical(polymul(c(0.5), c(2, 4, 8)), c(1, 2, 4))
identical(polymul(c(2.5, 1.5, 0.5), c(2)), c(5, 3, 1))
identical(polymul(c(1, 1, 1), c(0, 1, 1, 1)), c(1, 2, 3, 2, 1))
identical(polymul(c(1, 0, 0), c(0, 0, 1)), c(1, 0, 0))
back to top