analysis of adsm class

Import the data

data <- read.csv("clipboard", sep = "\t", header = TRUE)

## Load the library dplyr
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

# Group my dataset data & week
group <- group_by(data, Week)

# SUMMARY
sum <- summarise(group, count = n(),users = sum(Noofusers), usage = mean(Usage))

## `summarise()` ungrouping output (override with `.groups` argument)

# DRAW PLOT
barplot(sum$usage,names.arg=sum$Week,xlab="Week",ylab="Usage",col="blue", main="Usage chart")