Skip to content

Commit 319d93b

Browse files
committed
add refinery
1 parent 175cd86 commit 319d93b

File tree

1 file changed

+53
-0
lines changed

1 file changed

+53
-0
lines changed

man/refinery.Rd

Lines changed: 53 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,53 @@
1+
\name{refinery}
2+
\alias{refinery}
3+
\title{
4+
Reflux and tray level in a refinery
5+
}
6+
\description{
7+
194 observations on reflux and "tray 47 level" in a distallation
8+
column in an oil refinery.
9+
}
10+
\format{
11+
A data.frame with the following components:
12+
\describe{
13+
\item{Time}{
14+
observation time 0:193
15+
}
16+
\item{Reflux}{
17+
reflux flow centered on the mean of the first 60 observations
18+
}
19+
\item{Tray47}{
20+
tray 47 level centered on the mean of the first 60
21+
observations
22+
}
23+
}
24+
}
25+
26+
\source{
27+
Ramsay, James O., and Silverman, Bernard W. (2006), \emph{Functional
28+
Data Analysis, 2nd ed.}, Springer, New York, p. 4, Figure 1.4, and
29+
chapter 17.
30+
}
31+
%\seealso{\code{\link{eval.penalty}}}
32+
\examples{
33+
attach(refinery)
34+
# allow space for an axis on the right
35+
op <- par(mar=c(5, 4, 4, 5)+0.1)
36+
# plot uval
37+
plot(Time, Reflux, type="l", bty="n")
38+
# add yval
39+
y.u <- diff(range(Tray47))/diff(range(Reflux))
40+
u0 <- min(Reflux)
41+
y0 <- min(Tray47)
42+
43+
lines(Time, u0+(Tray47-y0)/y.u, lty=3, lwd=1.5, col="red")
44+
y.tick <- pretty(range(Tray47))
45+
axis(4, at=u0+(y.tick)/y.u, labels=y.tick, col="red", lty=3,
46+
lwd=1.5)
47+
# restore previous plot margins
48+
par(op)
49+
detach(refinery)
50+
}
51+
% docclass is function
52+
\keyword{datasets}
53+

0 commit comments

Comments
 (0)