austpop | R Documentation |
Population figures for Australian states and territories for 1917, 1927, ..., 1997.
austpop
This data frame contains the following columns:
a numeric vector
New South Wales population counts
Victoria population counts
Queensland population counts
South Australia population counts
Western Australia population counts
Tasmania population counts
Northern Territory population counts
Australian Capital Territory population counts
Population counts for the whole country
Australian Bureau of Statistics
print("Looping - Example 1.7")
growth.rates <- numeric(8)
for (j in seq(2,9)) {
growth.rates[j-1] <- (austpop[9, j]-austpop[1, j])/austpop[1, j] }
growth.rates <- data.frame(growth.rates)
row.names(growth.rates) <- names(austpop[c(-1,-10)])
# Note the use of row.names() to name the rows of the data frame
growth.rates
pause()
print("Avoiding Loops - Example 1.7b")
sapply(austpop[,-c(1,10)], function(x){(x[9]-x[1])/x[1]})
pause()
print("Plot - Example 1.8a")
attach(austpop)
plot(year, ACT, type="l") # Join the points ("l" = "line")
detach(austpop)
pause()
print("Exerice 1.12.9")
attach(austpop)
oldpar <- par(mfrow=c(2,4))
for (i in 2:9){
plot(austpop[,1], log(austpop[, i]), xlab="Year",
ylab=names(austpop)[i], pch=16, ylim=c(0,10))}
par(oldpar)
detach(austpop)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.