data-raw/fluorita.R

maquinas = read.table("data-raw/maquinas.txt",header=T)
datos$maq <- factor(datos$maq)
fluorita$mez <- factor(fluorita$mez,labels=c('1','2','3','4','5','6'))
save(fluorita,file="data/fluorita.rda")
javiercara/DisRegETSII documentation built on Feb. 9, 2020, 12:48 p.m.