install.packages(c("readxl", "dplyr"))

library(readxl)
library(dplyr)

library("readxl")

aaa <- read_excel("C:/archivos1/web nueva12/eaa/datos/cajas.xls",  na = "", sheet = "Hoja1" )
aab <- read_excel("http://www.uv.es/lejarza/eaa/datos/cajas.xls",  na = "", sheet = "Hoja1" )
aab <- read_excel("C:/Users/jlejarza/Documents/cajas.xls",  na = "", sheet = "Hoja1" )


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

list(aab)

list(Datos22)

list(aaa)
 
sinfre<-rep(aaa$cajas,aaa$num)
list(sinfre)

#guardar sin frecuencias

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

#volver a frecuencias con otro nombre

data<-read.table("C:/archivos1/web nueva12/eaa/datos/cajas.txt",header=T, sep="", )
list(data)
mean(data$x)

tablasinfre<-data.frame(x)    
list(tablasinfre)
freqsinfre<-table(data$x)
list(freqsinfre)
edit(freqsinfre)