inst/doc/cloudUtil.R

In cloudUtil: Cloud Utilization Plots

### R code from vignette source 'cloudUtil.Rnw'

###################################################
### code chunk number 1: cloudUtil.Rnw:91-94
###################################################
library(cloudUtil)
data(cloudms2)
cloudms2[sort(sample(nrow(cloudms2),10)),c(1,5,6,15)]


###################################################
### code chunk number 2: cloudUtil.Rnw:107-126
###################################################
hist(cloudms2$END_PREPROCESS - cloudms2$BEGIN_PREPROCESS,100)
## 
boxplot((cloudms2$END_PROCESS-cloudms2$BEGIN_PROCESS)/3600~cloudms2$CLOUD, 
    main="process time",
    ylab="time [hours]")
   
## 
throughput<-cloudms2$MZXMLFILESIZE*10^-6/
(cloudms2$END_COPYINPUT-cloudms2$BEGIN_COPYINPUT)

boxplot(throughput~cloudms2$CLOUD, 
    main="copy input network throughput",
    ylab="MBytes/s")
## 

cloudUtilPlot(begin=cloudms2$BEGIN_PROCESS, 
    end=cloudms2$END_PROCESS, 
    id=cloudms2$id, 
    group=cloudms2$CLOUD)


###################################################
### code chunk number 3: cloudUtil.Rnw:133-166
###################################################
#green
col.amazon<-rgb(0.1,0.8,0.1,alpha=0.2)
col.amazon2<-rgb(0.1,0.8,0.1,alpha=0.2)

#blue
col.fgcz<-rgb(0.1,0.1,0.8,alpha=0.2)
col.fgcz2<-rgb(0.1,0.1,0.5,alpha=0.2)

#red
col.uzh<-rgb(0.8,0.1,0.1,alpha=0.2)
col.uzh2<-rgb(0.5,0.1,0.1,alpha=0.2)

cm<-c(col.amazon, col.amazon2, col.fgcz, col.fgcz2, col.uzh, col.uzh2)

jpeg("cloudms2Fig.jpg", 640, 640)
op<-par(mfrow=c(2,1))
cloudUtilPlot(begin=cloudms2$BEGIN_PROCESS, 
    end=cloudms2$END_PROCESS, 
    id=cloudms2$id, 
    group=cloudms2$CLOUD, 
    colormap=cm, 
    normalize=FALSE, 
    plotConcurrent=TRUE); 

cloudUtilPlot(begin=cloudms2$BEGIN_PROCESS, 
    end=cloudms2$END_PROCESS, 
    id=cloudms2$id, 
    group=cloudms2$CLOUD, 
    colormap=cm, 
    normalize=TRUE, 
    plotConcurrent=TRUE,
    plotConcurrentMax=TRUE)
dev.off()