El presente es un estudio realizado en Estados Unidos sobre la incidencia de la edad y la latitud en la aparción de cancer en los humanos.

Los datos fueron recogidos del censo que se realizo en USA en el año 2011, y modificados (mediante la adición de errores) por razones pedagogicas.

Se parte de dos hipotesis:

  1. Las mayores latitudes estan asociadas a mayores incidencias de cancer en las personas, debido a la baja exposición a los rays solares.

  2. Los estados con mayor porcentaje de personas mayores de 65 años tienen mayor incidencia de cancer, debido a la conxeión de la edad con el cancer.

Se pasa a comprobar las hipotesis con las siguientes graficas:

M<-read.csv("Matrix.csv",sep = ";")
lat <- M$Latitude
canper <- M$Cancerdiag
senior <- M$Senior
library(ggplot2)
library(scales)
g <- ggplot()
g + geom_point(data=data.frame(canper),aes(x=senior,y = canper),colour = "black",width = .001,stat = "identity")+
ggtitle("Incidencia de la edad en los casos de cancer")+
ylab("Diagnostico Cancer x 1000")+ 
xlab("Senior (%Poblacion > 65)")+
theme_bw()+
theme(panel.grid=element_blank())
Ignoring unknown parameters: width

p <- ggplot()
p + geom_point(data=data.frame(canper),aes(x= canper,y = lat),colour = "black",width = .1,stat = "identity")+
ggtitle("Incidencia de la latitud en los casos de cancer en cada Estado")+
ylab("Latitud")+ 
xlab("Diagnostico Cancer x 1000 ")+
theme_bw()+
theme(panel.grid=element_blank())
Ignoring unknown parameters: width

RESULTADOS

De acuerdo a las graficas obtenidas se puede inferir que la segunda hipotesis tiene un grado de veracidad, ya que se observa en la grafica una tendencia de aumento de los diagnosticos de cancer a mayor porcentaje de poblacion mayor a 65 años.

Teniendo en cuenta que las latitudes mayores y menores en EE.UU son 71°23’N y 25°7’N, respectivamente; se puede ingerir que la mayoria de casos de cancer se encuentran en una zona intermedia entre 30° y 50° de latitud y en el Estado de Alska situado en la altitud 61.39°, el estado con mas latitud no se disparan los casos de cancer.

LS0tDQp0aXRsZTogIkFOQUxJU0lTIEVTVFVESU8gUkVBTElaQURPIEVOIEVFLlVVIFNPQlJFIExBIElOQ0lERU5DSUEgREUgTEEgRURBRCBZIExBIEFMVElUVUQgRU4gRUwgQ0FOQ0VSIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCkVsIHByZXNlbnRlIGVzIHVuIGVzdHVkaW8gcmVhbGl6YWRvIGVuIEVzdGFkb3MgVW5pZG9zIHNvYnJlIGxhIGluY2lkZW5jaWEgZGUgbGEgZWRhZCB5IGxhIGxhdGl0dWQgZW4gbGEgYXBhcmNp824gZGUgY2FuY2VyIGVuIGxvcyBodW1hbm9zLg0KDQpMb3MgZGF0b3MgZnVlcm9uIHJlY29naWRvcyBkZWwgY2Vuc28gcXVlIHNlIHJlYWxpem8gZW4gVVNBIGVuIGVsIGHxbyAyMDExLCB5IG1vZGlmaWNhZG9zIChtZWRpYW50ZSBsYSBhZGljafNuIGRlIGVycm9yZXMpIHBvciByYXpvbmVzIHBlZGFnb2dpY2FzLg0KDQpTZSBwYXJ0ZSBkZSBkb3MgaGlwb3Rlc2lzOg0KDQoxLiBMYXMgbWF5b3JlcyBsYXRpdHVkZXMgZXN0YW4gYXNvY2lhZGFzIGEgbWF5b3JlcyBpbmNpZGVuY2lhcyBkZSBjYW5jZXIgZW4gbGFzIHBlcnNvbmFzLCBkZWJpZG8gYSBsYSBiYWphIGV4cG9zaWNp824gYSBsb3MgcmF5cyBzb2xhcmVzLg0KDQoyLiBMb3MgZXN0YWRvcyBjb24gbWF5b3IgcG9yY2VudGFqZSBkZSBwZXJzb25hcyBtYXlvcmVzIGRlIDY1IGHxb3MgdGllbmVuIG1heW9yIGluY2lkZW5jaWEgZGUgY2FuY2VyLCBkZWJpZG8gYSBsYSBjb254ZWnzbiBkZSBsYSBlZGFkIGNvbiBlbCBjYW5jZXIuDQoNClNlIHBhc2EgYSBjb21wcm9iYXIgbGFzIGhpcG90ZXNpcyBjb24gbGFzIHNpZ3VpZW50ZXMgZ3JhZmljYXM6DQpgYGB7cn0NCk08LXJlYWQuY3N2KCJNYXRyaXguY3N2IixzZXAgPSAiOyIpDQpsYXQgPC0gTSRMYXRpdHVkZQ0KY2FucGVyIDwtIE0kQ2FuY2VyZGlhZw0Kc2VuaW9yIDwtIE0kU2VuaW9yDQpsaWJyYXJ5KGdncGxvdDIpDQpsaWJyYXJ5KHNjYWxlcykNCmcgPC0gZ2dwbG90KCkNCmcgKyBnZW9tX3BvaW50KGRhdGE9ZGF0YS5mcmFtZShjYW5wZXIpLGFlcyh4PXNlbmlvcix5ID0gY2FucGVyKSxjb2xvdXIgPSAiYmxhY2siLHdpZHRoID0gLjAwMSxzdGF0ID0gImlkZW50aXR5IikrDQpnZ3RpdGxlKCJJbmNpZGVuY2lhIGRlIGxhIGVkYWQgZW4gbG9zIGNhc29zIGRlIGNhbmNlciIpKw0KeWxhYigiRGlhZ25vc3RpY28gQ2FuY2VyIHggMTAwMCIpKyANCnhsYWIoIlNlbmlvciAoJVBvYmxhY2lvbiA+IDY1KSIpKw0KdGhlbWVfYncoKSsNCnRoZW1lKHBhbmVsLmdyaWQ9ZWxlbWVudF9ibGFuaygpKQ0KcCA8LSBnZ3Bsb3QoKQ0KcCArIGdlb21fcG9pbnQoZGF0YT1kYXRhLmZyYW1lKGNhbnBlciksYWVzKHg9IGNhbnBlcix5ID0gbGF0KSxjb2xvdXIgPSAiYmxhY2siLHdpZHRoID0gLjEsc3RhdCA9ICJpZGVudGl0eSIpKw0KZ2d0aXRsZSgiSW5jaWRlbmNpYSBkZSBsYSBsYXRpdHVkIGVuIGxvcyBjYXNvcyBkZSBjYW5jZXIgZW4gY2FkYSBFc3RhZG8iKSsNCnlsYWIoIkxhdGl0dWQiKSsgDQp4bGFiKCJEaWFnbm9zdGljbyBDYW5jZXIgeCAxMDAwICIpKw0KdGhlbWVfYncoKSsNCnRoZW1lKHBhbmVsLmdyaWQ9ZWxlbWVudF9ibGFuaygpKQ0KYGBgDQpSRVNVTFRBRE9TDQoNCkRlIGFjdWVyZG8gYSBsYXMgZ3JhZmljYXMgb2J0ZW5pZGFzIHNlIHB1ZWRlIGluZmVyaXIgcXVlIGxhIHNlZ3VuZGEgaGlwb3Rlc2lzIHRpZW5lIHVuIGdyYWRvIGRlIHZlcmFjaWRhZCwgeWEgcXVlIHNlIG9ic2VydmEgZW4gbGEgZ3JhZmljYSB1bmEgdGVuZGVuY2lhIGRlIGF1bWVudG8gZGUgbG9zIGRpYWdub3N0aWNvcyBkZSBjYW5jZXIgYSBtYXlvciBwb3JjZW50YWplIGRlIHBvYmxhY2lvbiBtYXlvciBhIDY1IGHxb3MuDQoNClRlbmllbmRvIGVuIGN1ZW50YSBxdWUgbGFzIGxhdGl0dWRlcyBtYXlvcmVzIHkgbWVub3JlcyBlbiBFRS5VVSBzb24gNzGwMjMnTiB5IDI1sDcnTiwgcmVzcGVjdGl2YW1lbnRlOyBzZSBwdWVkZSBpbmdlcmlyIHF1ZSBsYSBtYXlvcmlhIGRlIGNhc29zIGRlIGNhbmNlciBzZSBlbmN1ZW50cmFuIGVuIHVuYSB6b25hIGludGVybWVkaWEgZW50cmUgMzCwIHkgNTCwIGRlIGxhdGl0dWQgeSBlbiBlbCBFc3RhZG8gZGUgQWxza2Egc2l0dWFkbyBlbiBsYSBhbHRpdHVkIDYxLjM5sCwgZWwgZXN0YWRvIGNvbiBtYXMgbGF0aXR1ZCBubyBzZSBkaXNwYXJhbiBsb3MgY2Fzb3MgZGUgY2FuY2VyLg0KDQo=