membuat tabel

> data=c(41,45,49,51,52,54,65,67,67,70,71,80,80,81,82,83,86,88,89,90,92,93,97,100,55,98,70,71,75,88)

> data

 [1]  41  45  49  51  52  54  65  67  67  70  71  80  80  81  82  83  86  88  89

[20]  90  92  93  97 100  55  98  70  71  75  88

> sort(data)

 [1]  41  45  49  51  52  54  55  65  67  67  70  70  71  71  75  80  80  81  82

[20]  83  86  88  88  89  90  92  93  97  98 100

> length(data)

[1] 30

> max(data)

[1] 100

> min(data)

[1] 41

> jangkauan=max(data)-min(data)

> jangkauan

[1] 59

> jmlkls=1+(3.322*log10(length(data)))

> jmlkls

[1] 5.906997

> interval=jangkauan/jmlkls

> interval

[1] 9.988155

> round(jmlkls)

[1] 6

> round(interval)

[1] 10

> tabel=edit(data.frame())