jranke / chemCal

Compare 43d5893 ... +0 ... 8596a3e

Coverage Reach
calplot.R inverse.predict.lm.R lod.R loq.R

No flags found

Use flags to group coverage reports by test type, project and/or folders.
Then setup custom commit statuses and notifications for each flag.

e.g., #unittest #integration

#production #enterprise

#frontend #backend

Learn more about Codecov Flags here.

Showing 1 of 9 files from the diff.
Other files ignored by Codecov
NEWS.md has changed.
.Rbuildignore has changed.
test.log is new.
DESCRIPTION has changed.
check.log is new.
man/calplot.lm.Rd has changed.
build.log has changed.
GNUmakefile has changed.

@@ -1,23 +1,26 @@
Loading
1 1
calplot <- function(object, 
2 2
  xlim = c("auto", "auto"), ylim = c("auto", "auto"), 
3 -
  xlab = "Concentration", ylab = "Response", alpha = 0.05,
4 -
  varfunc = NULL)
3 +
  xlab = "Concentration", ylab = "Response",
4 +
  legend_x = "auto", 
5 +
  alpha = 0.05, varfunc = NULL)
5 6
{
6 7
  UseMethod("calplot")
7 8
}
8 9
9 10
calplot.default <- function(object, 
10 11
  xlim = c("auto","auto"), ylim = c("auto","auto"), 
11 12
  xlab = "Concentration", ylab = "Response",
13 +
  legend_x = "auto",
12 14
  alpha=0.05, varfunc = NULL)
13 15
{
14 16
  stop("Calibration plots only implemented for univariate lm objects.")
15 17
}
16 18
17 19
calplot.lm <- function(object,
18 20
  xlim = c("auto","auto"), ylim = c("auto","auto"), 
19 -
  xlab = "Concentration", ylab = "Response", alpha=0.05,
20 -
  varfunc = NULL)
21 +
  xlab = "Concentration", ylab = "Response",
22 +
  legend_x = "auto", 
23 +
  alpha=0.05, varfunc = NULL)
21 24
{
22 25
  if (length(object$coef) > 2)
23 26
    stop("More than one independent variable in your model - not implemented")
@@ -47,6 +50,7 @@
Loading
47 50
  yrange.auto <- range(c(0,pred.lim))
48 51
  if (ylim[1] == "auto") ylim[1] <- yrange.auto[1]
49 52
  if (ylim[2] == "auto") ylim[2] <- yrange.auto[2]
53 +
  if (legend_x[1] == "auto") legend_x <- min(object$model[[2]])
50 54
  plot(1,
51 55
    type = "n", 
52 56
    xlab = xlab,
@@ -68,7 +72,7 @@
Loading
68 72
  } else {
69 73
  matlines(newdata[[1]], conf.lim, lty = c(1, 3, 3), 
70 74
    col = c("black", "green4", "green4"))
71 -
  legend(min(x), 
75 +
  legend(legend_x,
72 76
    max(pred.lim, na.rm = TRUE), 
73 77
    legend = c("Fitted Line", "Confidence Bands", 
74 78
        "Prediction Bands"), 

Everything is accounted for!

No changes detected that need to be reviewed.
What changes does Codecov check for?
Lines, not adjusted in diff, that have changed coverage data.
Files that introduced coverage data that had none before.
Files that have missing coverage data that once were tracked.
Files Coverage
R -0.32% 53.25%
Project Totals (4 files) 53.25%
Loading