Kuiper R

wb<-loadWorkbook("pa.xls",create=FALSE)
BaseDatos<-readWorksheet(wb,sheet ="lab")
precios=BaseDatos$price
n=length(precio)
n
m=11
summary(BaseDatos)
seq(8639,70755,m)
summary(BaseDatos)r=max(BaseDatos) - min(BaseDatos)
r=max(BaseDatos) - min(BaseDatos))
r=max(BaseDatos$Price) - min(BaseDatos$Price)
r
seq(min(BaseDatos$Price),max(BaseDatos$Price),r)
tf=table(cut(precio,breaks = m))
tfni=cut(precio,breaks = m)
ni
rm ni
rm ni
hi=tf/n
hi
tf
tablaprecio <-as.data.frame(table(precio-factor(cut(precio,breaks = m))))
tablaprecio<-as.data.frame(table(Price-factor(cut(BaseDatos$Price,breaks = m))))
BaseDatos$Price
tablaprecio <-as.data.frame(table(precio=factor(cut(precio,breaks = m))))
tablaprecio
transform (tablaprecio
a
transform(tablaprecio,
FreqAc = cumsum(Freq),
Rel =round(prop.table(Freq), 3),
RelAc = round(cumsum(prop.table(Freq)), 3))
transform(tablaprecio,
FreqAc = cumsum(Freq),
Rel = round(prop.table(Freq), 3),
RelAc = round(cumsum(prop.table(Freq)), 3))transform(tablaprecio,
FreqAc = cumsum(Freq),
Rel = round(prop.table(Freq), 3),
RelAc = round(cumsum(prop.table(Freq)), 3))
ls
ls
ls()
rm precios
rm precios
rm "precios"
rm(precios)
m
c=r/m
cseq(min(BaseDatos$Price),max(BaseDatos$Price),c)
transform(tablaprecio,
Yi=seq(min(precio),max(precio),c),
FreqAc = cumsum(Freq),
Rel = round(prop.table(Freq), 3),
RelAc = round(cumsum(prop.table(Freq)), 3))min(precio)
transform(tablaprecio,
Yi=seq(min(precio),max(precio),c),
FreqAc = cumsum(Freq),
Rel = round(prop.table(Freq), 3),
RelAc = round(cumsum(prop.table(Freq)), 3))
transform(tablaprecio,
Yi =seq(min(precio),max(precio),c),
FreqAc = cumsum(Freq),
Rel = round(prop.table(Freq), 3),
RelAc = round(cumsum(prop.table(Freq)), 3))
yi
Yi
Yi = seq(min(precio),max(precio),c)
transform(tablaprecio,Yi,
FreqAc = cumsum(Freq),
Rel = round(prop.table(Freq), 3),
RelAc = round(cumsum(prop.table(Freq)), 3))
Yi
transform(tablaprecio,
FreqAc = cumsum(Freq),
Rel = round(prop.table(Freq), 3),
RelAc =...