#====================
# Figure 10.1.R.
# Plot of y = x^a as a function of a,
# with x fixed at 2.
#====================
a=4*(0:1000)/1000-2
x=2
y=x^a
plot(a,y,type="l")