I. Introduction

The “Bet” refers to a wager made between Julian Simon, an economist, and Paul Ehrlich, a biologist, about whether the prices of five metals—tungsten, copper, chromium, nickel, and tin—would rise or fall over the course of a decade. Simon believed that resource prices would decline due to technological advancements, while Ehrlich believed they would rise due to scarcity and environmental pressures. The bet lasted from 1980 to 1990, and the results of this bet are often used to examine the validity of both viewpoints.


II. The Issue

The issue in the Bet is whether human ingenuity (as represented by Julian Simon) or resource scarcity (as represented by Paul Ehrlich) would determine the prices of natural resources in the long run. The outcome of the Bet has broader implications for how we think about the sustainability of natural resources and economic growth.


III. The Methodology of the Bet

library(dygraphs)
library(xts)

# Sample data (replace with actual data for the metals and CPI)
# Dates from 1980 to 1990 (simplified example, actual data should be in a data frame)
years <- seq(1980, 1990, by = 1)
prices <- data.frame(
  tungsten = c(10, 9, 8, 8.5, 7, 6, 5.8, 6.2, 5.5, 4.9, 4.8),
  copper = c(0.8, 0.9, 1.0, 1.1, 0.7, 0.6, 0.5, 0.6, 0.55, 0.6, 0.65),
  chromium = c(10, 12, 14, 13, 12, 11, 9, 8, 7, 6, 5),
  nickel = c(3.5, 4.0, 4.2, 4.5, 4.0, 3.8, 3.4, 3.3, 3.1, 3.0, 2.8),
  tin = c(4.0, 3.8, 3.6, 3.9, 4.1, 4.2, 4.3, 4.5, 4.2, 3.8, 3.5),
  cpi = c(82.4, 84.3, 86.0, 88.0, 90.5, 93.1, 95.3, 97.4, 99.5, 102.0, 104.5)
)

# Calculate SRPI for each metal
srpi_data <- data.frame(years)
for (metal in names(prices)[1:5]) {
  srpi_data[[metal]] <- prices[[metal]] / (prices$cpi / 100)
}

# Convert data frame to xts for time series plotting
srpi_xts <- xts(srpi_data[,-1], order.by = as.Date(paste0(srpi_data$years, "-01-01")))

# Plot using dygraph
dygraph(srpi_xts) %>%
  dySeries("tungsten", label = "Tungsten") %>%
  dySeries("copper", label = "Copper") %>%
  dySeries("chromium", label = "Chromium") %>%
  dySeries("nickel", label = "Nickel") %>%
  dySeries("tin", label = "Tin") %>%
  dyOptions(stackedGraph = TRUE) %>%
  dyRangeSelector()

IV. Results

To calculate and plot the Simple Real Price Index in R, you’ll first need to gather the historical data for each metal’s price and the Consumer Price Index (CPI) over the years of the Bet (1980-1990). Here’s how you can implement this in R:

V. The Relevance Then / The Relevance Now


VI. Concluding Comments

In light of the Bet’s results, where Simon’s optimism about human ingenuity prevailed, the emphasis for future U.S. government policy should be on fostering innovation, investing in renewable technologies, and encouraging sustainable resource use. This approach, paired with responsible environmental practices, would likely ensure that future generations benefit from both economic growth and environmental sustainability.

The government should also focus on the following: - Investing in Technology: Encourage innovation in alternative resources and recycling technologies. - Addressing Climate Change: While resource prices might not always rise, the environmental cost of extracting and using them should be a major consideration. - Global Cooperation: Work with other nations to ensure equitable distribution and responsible management of natural resources.


References