Nothing
#' @title p2dMax : provides the maximum polynomial degree \code{dMax}
#' given the number of variables \code{nVar} and the number of possible
#' polynomial terms \code{pMax}.
#'
#' @description Find the maximum polynomial degree \code{dMax}
#' given the number of polynomial terms \code{pMax}
#' and the system dimension \code{nVar}.
#'
#' @inheritParams gloMoId
#' @param pMaxKnown The number of polynomial terms
#'
#' @return \code{dMax} The maximum polynomial degree
#'
#' @author Sylvain Mangiarotti, Laurent Drapeau
#'
#' @seealso \code{\link{gloMoId}}, \code{\link{gPoMo}}, \code{\link{poLabs}}
#'
#' @examples
#' #############
#' # Example 1 #
#' #############
#' # Maximum polynomial degree ?
#' # number of variables:
#' nVar <- 3
#' # size of the polynomial vector:
#' pMax <- 10
#' # The maximal polynomial degree used for coding the polynomial is:
#' p2dMax(nVar,pMax)
#'
#' #############
#' # Example 2 #
#' #############
#' # for pMax = 462 and nVar = 6, then dMax is:
#' p2dMax(6,462)
#' # indeed:
#' length(poLabs(nVar=6, dMax=5))
#'
#' @export
#'
p2dMax <- function(nVar, pMaxKnown, dMin=0) {
# initialisation
pM <- dM <- 0
nIter = 500
# iterative searching loop
while (pM != pMaxKnown & dM != nIter) {
dM <- dM + 1
pM <- d2pMax(nVar, dM, dMin)
}
# stop if pM was not found
if (dM == nIter) {
block <- paste("Impossible to find 'dMax' from 'nVar' and 'pMax'
with ", nIter, "iterations.", sep="")
stop(block)
}
# retreived maximum polynomial degree:
dM
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.