ANALYSIS FOR ADSM CLASS

IMPORT THE DATA

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

LOAD THE DPLYR LIBRARY

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

GROUPING DATA BASED ON WEEK

group <- group_by(weekData, week)

SUMMARY

sum <- summarise (group, Count = n(), Users = sum(users), Usage = mean(usage))

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

DRAW A BAR PLOT

barplot(sum$Usage,names.arg=sum$week,xlab="Week",ylab="Usage",col="blue",
        main="Usage chart")