PopulationCov <- function(n)
a <- matrix(NA, n, n);
a <- phi^abs(row(a) - col(a));
for (i in 1:n)
a[i, ] <- a[i, ] - mean(a[i, baseline]);
for (j in 1:n)
a[ , j] <- a[ , j] - mean(a[baseline, j]);
e <- eigen(PopulationCov(n));
lines(e$vectors[,1], col = 2, lwd = 2);
The National Academies | 500 Fifth St. N.W. | Washington, D.C. 20001
Copyright © National Academy of Sciences. All rights reserved.
Appendix B: R Code for Figure 9-2 ."
Surface Temperature Reconstructions for the Last 2,000 Years . Washington, DC: The National Academies Press,
Please select a format:
As of 2013, the National Science Education Standards have been replaced by the Next Generation Science Standards (NGSS), available as a print book, free PDF download, and online with our OpenBook platform.
The NGSS offer a detailed description of the key scientific ideas and practices that all students should learn by the time they graduate from high school. The standards are based largely on the 2011 National Research Council report A Framework for K-12 Science Education: Practices, Crosscutting Concepts, and Core Ideas.