isHomogeneousQspray function

Whether a 'qspray' polynomial is homogeneous

Checks whether the polynomial defined by a qspray

object is homogeneous, and also returns the degree if this is true.

isHomogeneousQspray(qspray)

Arguments

• qspray: a qspray object

Returns

A Boolean value indicating whether the polynomial defined by qspray is homogeneous. Moreover, if it is homogeneous, the degree is given in the attribute "degree" of the output.

Examples

lambda <- c(3, 2, 1)
p <- PSFpoly(4, lambda)
( homogeneous <- isHomogeneousQspray(p) ) # should be TRUE
attr(homogeneous, "degree") == sum(lambda) # should be TRUE