### Eliminaciòn de todos los archivos
rm(list=ls())
# Librerias
update.packages()
require(RcmdrMisc)
require(Rcmdr)
require(RcmdrPlugin.DoE)
require(RcmdrPlugin.doex)
require(RcmdrPlugin.qual)
require(qcc)
require(MASS)
require(rJava)
require(xlsx)
require(xlsxjars)
### Búsqueda de datos
setwd("C:/Users/ncortes/Documents/R/datos")
datos<-read.xlsx("bellycran.xlsx","140404", header=TRUE)
datos2<-as.data.frame(datos[25:60,])
