Population figures for Australian States and Territories
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)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.