#====================
# Figure 10.2.R.
# Plot & table of the function
#     y = (1 + 1/x)^x,
# for increasing values of x.
#====================
x=1:50
y=(1+1/x)^x
function.table=data.frame(x,y)
function.table
plot(x,y,type="l")