From da4f03889d18733d382644f4bdf0783896c76dff Mon Sep 17 00:00:00 2001
From: agebhard <>
Date: Fri, 1 Mar 2013 07:40:31 +0000
Subject: [PATCH] add forgotten files to CVS

---
 data/akima760.rda | Bin 0 -> 340 bytes
 man/akima760.Rd   |  63 ++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 63 insertions(+)
 create mode 100644 data/akima760.rda
 create mode 100644 man/akima760.Rd

diff --git a/data/akima760.rda b/data/akima760.rda
new file mode 100644
index 0000000000000000000000000000000000000000..4ea4ea7d29ff90c5ac585180f6927227c019efeb
GIT binary patch
literal 340
zcmV-a0jvHWiwFP!000000}FDAFye~fVqjokVqoG2VrC$dg$YP7GO#dk0%?xK?9ALm
zb29^=5@8@8q<{~IL2_VV{{ccfK=}?FP+9;=i$G}!C@lk}6<{WS&Euw)c@9cYS_Nhz
z6Uh8zhG7aEIA?;uEc<6^U_iDxvJi6|gpI+#{u{(R`<)PRqRr7jiw{wVc@FGQb00%!
zg60^U0fDm)I#5~xYK}D2oe~gnn0dI|>0k=gZ_)taYeMxKLTPcRxpGkdzJ!M7V^sG#
zm_g(n%%JAz!o;C`A*ekvP<Q=-@)^)*C#bzHQ1@9wX_sXX^L3!+T0qS;^ntn`DsBQb
z$5#?!j^6=@I`_{Id4DyCIgU_$Zcuq=sCpNe{WqcEg_7TyQ!;ab6fd|)fMjz}*8GR2
mj5RMYH?<hZ5CE465JAQY7^4!#sDkKa_y+)PSctW11ONbPtC3Cs

literal 0
HcmV?d00001

diff --git a/man/akima760.Rd b/man/akima760.Rd
new file mode 100644
index 0000000..e8e14d2
--- /dev/null
+++ b/man/akima760.Rd
@@ -0,0 +1,63 @@
+\name{akima760}
+\alias{akima760}
+\title{
+Sample data from Akima's Bicubic Spline Interpolation code (TOMS 760)
+}
+\description{
+\code{akima760} is a list with vector components \code{x}, \code{y} and a matrix \code{z} which
+represents a smooth surface of \code{z} values at the points
+of a regular grid spanned by the vectors \code{x} and \code{y}.
+
+}
+\references{
+Hiroshi Akima, "
+
+", 
+ACM Transactions on Mathematical Software,
+Vol. 22, No. 3, September 1996, pp. 357-361.
+}
+\examples{
+\dontrun{
+library(rgl)
+data(akima)
+# data
+rgl.spheres(akima760$x,akima760$z , akima760$y,0.5,color="red")
+rgl.bbox()
+# bivariate linear interpolation
+# interp:
+akima.li <- interp(akima$x, akima$y, akima$z, 
+                   xo=seq(min(akima$x), max(akima$x), length = 100),
+                   yo=seq(min(akima$y), max(akima$y), length = 100))
+# interp surface:
+rgl.surface(akima.li$x,akima.li$y,akima.li$z,color="green",alpha=c(0.5))
+# interpp:
+akima.p <- interpp(akima$x, akima$y, akima$z,
+                    runif(200,min(akima$x),max(akima$x)),
+                    runif(200,min(akima$y),max(akima$y)))
+# interpp points:
+rgl.points(akima.p$x,akima.p$z , akima.p$y,size=4,color="yellow")
+
+# bivariate spline interpolation
+# data
+rgl.spheres(akima$x,akima$z , akima$y,0.5,color="red")
+rgl.bbox()
+# bivariate cubic spline interpolation
+# interp:
+akima.si <- interp(akima$x, akima$y, akima$z, 
+                   xo=seq(min(akima$x), max(akima$x), length = 100),
+                   yo=seq(min(akima$y), max(akima$y), length = 100),
+                   linear = FALSE, extrap = TRUE)
+# interp surface:
+rgl.surface(akima.si$x,akima.si$y,akima.si$z,color="green",alpha=c(0.5))
+# interpp:
+akima.sp <- interpp(akima$x, akima$y, akima$z,
+                    runif(200,min(akima$x),max(akima$x)),
+                    runif(200,min(akima$y),max(akima$y)),
+                   linear = FALSE, extrap = TRUE)
+# interpp points:
+rgl.points(akima.sp$x,akima.sp$z , akima.sp$y,size=4,color="yellow")
+
+}
+}
+\keyword{datasets}
+% Converted by Sd2Rd version 0.2-a3.
-- 
GitLab