summary.bezierCurveFit: Summary of a Bezier curve fit

Description Usage Arguments Value Author(s) See Also Examples

Description

Prints a summary of the output of bezierCurveFit (a list of class "bezierCurveFit"). For each dimension of the point set being fitted, this includes the number of parameters used in the fit, the residual standard error and the reason the fit iterations were stopped. See bezierCurveFit for details.

Usage

1
2
## S3 method for class 'bezierCurveFit'
summary(object, ...)

Arguments

object

a list of class "bezierCurveFit" (the output of bezierCurveFit).

...

further arguments passed to or from other methods.

Value

a NULL value.

Author(s)

Aaron Olsen

See Also

bezierCurveFit, bezier

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
## RUN BEZIER CURVE FIT ON BEZIER CURVE ##
## BEZIER CONTROL POINTS
p <- matrix(c(0,0, 1,4, 2,2, 3,0, 5,5), nrow=5, ncol=2, byrow=TRUE)

## POINTS ON BEZIER
m <- bezier(t=seq(0, 1, length=300), p=p)

## RANDOM VARIATION (NOISE) AROUND POINTS
## SENDING EXACT POINTS WILL ISSUE WARNING IN NLM FUNCTION
mrnorm <- m + cbind(rnorm(nrow(m), 1, 0.1), rnorm(nrow(m), 1, 0.1))

## RESTORE POSITION OF POINTS
mrnorm <- mrnorm - cbind(rep(1, nrow(m)), rep(1, nrow(m)))

## RUN BEZIER CURVE FIT UNCONSTRAINED NUMBER OF CONTROL POINTS
bfit <- bezierCurveFit(mrnorm)

## GET CURVE FIT SUMMARY
print(summary(bfit))

Example output

bezierCurveFit Summary
	Dimension 1 fit with 6 parameters and RSE of 0.104623. Percent change in RSE (0.00042) is less than maximum percent change in RSE (0.01).
	Dimension 2 fit with 6 parameters and RSE of 0.09478754. Percent change in RSE (0.00015) is less than maximum percent change in RSE (0.01).

bezier documentation built on May 1, 2019, 9:46 p.m.