round.mpoly: Round the coefficients of a polynomial

Description Usage Arguments Value Author(s) See Also Examples

View source: R/round.mpoly.R

Description

Round the coefficients of an mpoly object.

Usage

1
2
## S3 method for class 'mpoly'
round(x, digits = 3)

Arguments

x

an mpoly object

digits

number of digits to round to

Value

the rounded mpoly object

Author(s)

David Kahle david@kahle.io

See Also

mp()

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
p <- mp("x + 3.14159265")^4
p
round(p)
round(p, 0)

## Not run: 
library(plyr)
library(ggplot2)
library(stringr)

n <- 101
s <- seq(-5, 5, length.out = n)

# one dimensional case
df <- data.frame(x = s)
df <- mutate(df, y = -x^2 + 2*x - 3 + rnorm(n, 0, 2))
qplot(x, y, data = df)
mod <- lm(y ~ x + I(x^2), data = df)
p <- as.mpoly(mod)
qplot(x, y, data = df) +
  stat_function(fun = as.function(p), colour = 'red')

p
round(p, 1)
qplot(x, y, data = df) +
  stat_function(fun = as.function(p), colour = 'red') +
  stat_function(fun = as.function(round(p,1)), colour = 'blue')



## End(Not run)

mpoly documentation built on March 26, 2020, 7:33 p.m.