在输入代码
load("C:/TongJiXue/exercise/ch2/exercise2_2.RData")
vector2_2<-as.vector(exercise2_2$灯泡寿命)
d<-table(cut(vector2_2,breaks=150*(18:28),right=FALSE))
df<-data.frame(d)
percent<-df$Freq/sum(df$Freq)*100
cumsump<-cumsum(percent)
mytable<-data.frame(d,percent,cumsump)
mytable
出现
Var1 Freq percent cumsump
1 [2.7e+03,2.85e+03) 1 1 1
2 [2.85e+03,3e+03) 4 4 5
3 [3e+03,3.15e+03) 8 8 13
4 [3.15e+03,3.3e+03) 10 10 23
5 [3.3e+03,3.45e+03) 12 12 35
6 [3.45e+03,3.6e+03) 22 22 57
7 [3.6e+03,3.75e+03) 14 14 71
8 [3.75e+03,3.9e+03) 17 17 88
9 [3.9e+03,4.05e+03) 9 9 97
10 [4.05e+03,4.2e+03) 3 3 100
为什么 会出现 [2.7e+03,2.85e+03) ??
数据最小2700,最大4169