Código en R para datos Súper Más