Commit e0adeb2f authored by agebhard's avatar agebhard
Browse files

T/F changed to TRUE/FALSE

parent c4fdbfe2
Package: akima
Version: 0.3-2
Version: 0.3-3
Title: Interpolation of irregularly spaced data
Author: Fortran code by H. Akima
R port by Albrecht Gebhardt <albrecht.gebhardt@uni-klu.ac.at>
......
"interp.new"<-function(x, y, z, xo = seq(min(x), max(x), length = 40),
yo = seq(min(y), max(y), length = 40), linear=F,
yo = seq(min(y), max(y), length = 40), linear=FALSE,
ncp = NULL, extrap = FALSE, duplicate = "error",
dupfun = NULL)
{
......@@ -50,7 +50,7 @@
n <- length(x)
}
else{
ord <- (hist(i,plot=F,freq=T,breaks=seq(0.5,max(i)+0.5,1))$counts==1)
ord <- (hist(i,plot=FALSE,freq=TRUE,breaks=seq(0.5,max(i)+0.5,1))$counts==1)
x <- x[ord]
y <- y[ord]
z <- z[ord]
......@@ -63,7 +63,7 @@
zo <- matrix(0, nx, ny)
storage.mode(zo) <- "double"
miss <- !extrap #if not extrapolating use missing values
extrap <- matrix(T, nx, ny)
extrap <- matrix(TRUE, nx, ny)
if(!is.null(ncp)){
if(extrap & ncp == 0)
warning("Cannot extrapolate with linear option")
......
......@@ -39,7 +39,7 @@
n <- length(x)
}
else{
ord <- (hist(i,plot=F,freq=T,breaks=seq(0.5,max(i)+0.5,1))$counts==1)
ord <- (hist(i,plot=FALSE,freq=TRUE,breaks=seq(0.5,max(i)+0.5,1))$counts==1)
x <- x[ord]
y <- y[ord]
z <- z[ord]
......
......@@ -44,7 +44,7 @@
n <- length(x)
}
else{
ord <- (hist(i,plot=F,freq=T,breaks=seq(0.5,max(i)+0.5,1))$counts==1)
ord <- (hist(i,plot=FALSE,freq=TRUE,breaks=seq(0.5,max(i)+0.5,1))$counts==1)
x <- x[ord]
y <- y[ord]
z <- z[ord]
......@@ -57,7 +57,7 @@
zo <- rep(0, np)
storage.mode(zo) <- "double"
miss <- !extrap #if not extrapolating use missing values
extrap <- seq(T, np)
extrap <- seq(TRUE, np)
if(extrap & ncp == 0)
warning("Cannot extrapolate with linear option")
ans <- .Fortran("sdbi3p",
......
......@@ -44,7 +44,7 @@
n <- length(x)
}
else{
ord <- (hist(i,plot=F,freq=T,breaks=seq(0.5,max(i)+0.5,1))$counts==1)
ord <- (hist(i,plot=FALSE,freq=TRUE,breaks=seq(0.5,max(i)+0.5,1))$counts==1)
x <- x[ord]
y <- y[ord]
z <- z[ord]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment