Datos Accidentalidad Ciclista Universidad de Sevilla

ksi.casco <- c(50, 71, 99, 112, 118, 102, 146, 116, 97, 106, 103, 132, 142, 161, 158, 140, 173, 199)
ksi.nocasco <- c(545, 516, 481, 391,366,366,313,218,223,260,209,189,141,162,156,113,115,90)
ksi.desc <- c(36,62,39,37,40,26,32,21,23,21,22,17,10,26,20,25,23,18)
ksicraneal.casco<- c(15,25,28,28,43,35,51,40,28,29,30,33,36,25,41,19,38,35)
ksicraneal.nocasco <- c(293,254,264,210,192,185,161,120,109,144,107,104,73,71,56,44,51,36)
ksicraneal.desc<- c(12,27,19,13,15,10,10,7,9,1,6,4,3,2,4,7,1,1)
accid.casco <-c(116,179,241,254,245,301,333,336,311,333,310,441,435,555,623,593,714,832)
accid.nocasco<- c(994,943,931,749,720,706,620,468,478,519,479,420,329,356,345,273,301,260)
accid.desc<- c(81,117,87,91,98,99,85,69,66,71,72,61,70,114,131,133,181,154)

ksicraneal.casco.ts <- ts(ksicraneal.casco, frequency=1, start=c(1993,1))
ksicraneal.nocasco.ts <- ts(ksicraneal.nocasco, frequency=1, start=c(1993,1))
ksicraneal.desc.ts <- ts(ksicraneal.desc, frequency=1, start=c(1993,1))
accid.casco.ts <- ts(accid.casco, frequency=1, start=c(1993,1));
accid.nocasco.ts <- ts(accid.nocasco, frequency=1, start=c(1993,1));
accid.desc.ts <- ts(accid.desc, frequency=1, start=c(1993,1));
ksi.casco.ts <- ts(ksi.casco, frequency=1, start=c(1993,1));
ksi.nocasco.ts <- ts(ksi.nocasco, frequency=1, start=c(1993,1));
ksi.desc.ts <- ts(ksi.desc, frequency=1, start=c(1993,1));

ksi <- cbind(ksi.casco.ts, ksi.nocasco.ts, ksi.desc.ts);
accid <- cbind(accid.casco.ts, accid.nocasco.ts, accid.desc.ts);
ksicraneal <- cbind(ksicraneal.casco.ts, ksicraneal.nocasco.ts, ksicraneal.desc.ts);

par(mfrow=c(3,1));

plot(accid, plot.type="single", main="Ciclistas accidentados en España, vías interurbanas",col=c("blue","red","gray"));
legend(x="topright",legend=c("Casco","Sin casco","Desconocido"), col=c("blue","red","gray"), lty=1:3);

plot(ksi, plot.type="single", main="Ciclistas fallecidos y heridos graves en España, vías interurbanas",col=c("blue","red","gray"));
legend(x="topright",legend=c("Casco","Sin casco","Desconocido"), col=c("blue","red","gray"), lty=1:3);

plot(ksicraneal, plot.type="single", main="Ciclistas fallecidos y heridos graves por lesión craneal en España, vías interurbanas",col=c("blue","red","gray"));
legend(x="topright",legend=c("Casco","Sin casco","Desconocido"), col=c("blue","red","gray"), lty=1:3);