Datos22 <- read.table ("http://www.uv.es/lejarza/eaa/datos/amv.csv", header = TRUE, sep = ";", na.strings = "NA", dec = ",", strip.white = TRUE)
mean(Datos22$suelo)

summary(Datos22)
mean(Datos22$suelo)
dataframe<- read.table ("http://www.uv.es/lejarza/eaa/datos/cajas.csv", header = TRUE, sep = ";", na.strings = "NA", dec = ",", strip.white = TRUE)
summary(dataframe)       # no sirve hay que quitar frecuencias 

sinfre <-rep (dataframe $ cajas, dataframe $ num)
list (sinfre)  #tampoco sirve  horizontal no puedo calcular nada

#guardar sin frecuencias

write.table (sinfre, file = "C:/R/datos/cajas.txt", col.names = TRUE, eol = "\r")
write.table (sinfre, file = "C:/R/datos/cajas2.txt", col.names = TRUE)

data <-read.table ("C:/R/datos/cajas.txt", header = T, sep = "",)
mean(data$x)


tablasinfre <-data.frame (data$x)    #sin frecuencias 
list (tablasinfre)
confre <- table(data $ x)    #con frecuencias
list (confre)
edit (confre)