cityair <- source("http://www.cimat.mx/~ponciano/STATMVN/chap3usair.dat")$value

print(cityair);
attach(cityair);
names(cityair);

#### Hagan un analisis de componentes principales con estos datos