Displaying 2 results from an estimated 2 matches for "imeth".
Did you mean:
meth
2008 Oct 07
0
splinefun gives incorrect derivs when extrapolating to the (PR#13139)
...ibrary/stats/R/splinefun.R (working copy)
@@ -38,7 +38,6 @@
y <- as.vector(tapply(y,x,ties))# as.v: drop dim & dimn.
x <- sort(ux)
nx <- length(x)
- rm(ux)
} else {
o <- order(x)
x <- x[o]
@@ -93,7 +92,7 @@
d=double(nx),
e=double(if(iMeth == 1) nx else 0),
PACKAGE="stats")
- rm(x,y,nx,o,method,iMeth)
+ rm(x,y,nx,ux,o,method,iMeth)
z$e <- NULL
function(x, deriv = 0) {
deriv <- as.integer(deriv)
@@ -114,18 +113,25 @@
## where dx := (u[j]-x[i]); i such that x[i] <= u[j] <...
2008 Oct 07
0
splinefun gives incorrect derivs when extrapolating to the (PR#13138)
...ibrary/stats/R/splinefun.R (working copy)
@@ -38,7 +38,6 @@
y <- as.vector(tapply(y,x,ties))# as.v: drop dim & dimn.
x <- sort(ux)
nx <- length(x)
- rm(ux)
} else {
o <- order(x)
x <- x[o]
@@ -93,7 +92,7 @@
d=double(nx),
e=double(if(iMeth == 1) nx else 0),
PACKAGE="stats")
- rm(x,y,nx,o,method,iMeth)
+ rm(x,y,nx,ux,o,method,iMeth)
z$e <- NULL
function(x, deriv = 0) {
deriv <- as.integer(deriv)
@@ -114,18 +113,31 @@
## where dx := (u[j]-x[i]); i such that x[i] <= u[j] <...