R/mFitPoly.R

In rpruim/mosaicManip: Project MOSAIC (mosaic-web.org) manipulate examples.

#' Interactive applet for term selection and setting nonlinear parameters to
#' fit data with polynomials.
#' 
#' Displays data and a menu of modeling functions.  Finds a linear combination
#' of the selected modeling functions, with the user setting nonlinear
#' parameters manually. A wrapper for \code{mFit}, see \code{mFit} for more
#' details.
#' 
#' A premade wrapper for \code{mFit} such that only the constant, x, x^2, x^3,
#' log(x), and e^(kx) terms are displayed. See \code{mFit} for more details.
#' 
#' @param expr A formula object giving the dependent and independent variables
#' to use.
#' @param data A data frame containing the values for the variables identified
#' in \code{expr}.
#' @param ... Additional arguments to be passed to \code{mFit}
#' @return A function that implements the current state of the parameters and
#' terms selected.
#' @author Andrew Rich (\email{andrew.joseph.rich@@gmail.com}) and Daniel
#' Kaplan (\email{kaplan@@macalester.edu})
#' @keywords calculus
#' @examples
#' 
#' 	if(require(manipulate)){
#' 		Stan=fetchData("stan-data.csv")
#' 		mFitPoly(temp~time, Stan)
#' 	}
#' 
mFitPoly=function(expr, data, ...){
  instruct=c(TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,FALSE,FALSE,FALSE,
             FALSE,FALSE,FALSE,FALSE)
  mFit(expr, data, instructor=instruct, ...)
}