#con datos de mortality.org #library((demography) #Spain, Death rates (period 1x1) Last modified: 22-Feb-2008, MPv5 (May07) spain<-read.demogdata("Mx_1x1SPAIN.txt", "Exposures_1x1SPAIN.txt",type="mortality", label="Spain", skip = 2, popskip = 2) #gráfico de las tasas brutas de mortalidad por sexo plot(spain,series="male", plot.type="functions") plot(spain,series="female", plot.type="functions") #Seleccionando tasas de 1975 a 2006 spain.desde1975 <- extract.years(spain,1975:2006) #Seleccionando poblaciòn con edad mayor o igual a 1965 y tasas de 1975 a 2006 spain.mas65 <- extract.ages(spain,65:110,FALSE) spain.mas65.desde1975 <- extract.years(spain.mas65,1975:2006) #Gráfico de Esperanza de Vida desde el nacimiento y tiempo de vida restante de los población 65 años en adelante par(mfrow=c(2,2)) plot(life.expectancy(spain.desde1975, series="male"),ylab="Life expectancy at birth, males") plot(life.expectancy(spain.desde1975, series="female"),ylab="Life expectancy at birth, females") plot(life.expectancy(spain.mas65.desde1975, series="male"),ylab="Life expectancy from 65, males") plot(life.expectancy(spain.mas65.desde1975, series="female"),ylab="Life expectancy from 65, females") par(mfrow=c(1,1)) #gráfico de las tasas brutas de mortalidad para hombres de 1975 a 2006 plot(spain.mas65.desde1975, series="male") #Creando y graficando Tabla de vida spain.ltM <- lifetable(spain, series="male") plot(spain.ltM ) lt2000 <- print(lifetable(spain, series="male",year=2000))