Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
41 lines (30 sloc) 919 Bytes
#
# 1014a.R, 13 Feb 18
#
# Data from:
#
# Implementation of Fault Slip Through in Design Phase of the Project
# Lovre Hribar
#
# Example from:
# Empirical Software Engineering using R
# Derek M. Jones
source("ESEUR_config.r")
library("lattice")
FST=read.csv(paste0(ESEUR_dir, "reliability/1014a.csv.xz"), as.is=TRUE,
row.names=1)
FST=as.matrix(FST)
# Rotate clockwise by 90 degrees
FST=t(apply(FST, 2, rev))
FST_txt=as.character(FST)
FST_txt[is.na(FST)]=" "
t=levelplot(FST,
xlab="", ylab="",
scales=list(x=list(cex=0.75, rot=25), y=list(cex=0.75)),
colorkey=NULL, # Numeric values remove the need for legend
panel=function(...)
{
panel.levelplot(...)
panel.text(1:5, rep(1:5, each=5), FST_txt, cex=0.7)
})
plot(t, panel.height=list(3.8, "cm"), panel.width=list(4.2, "cm"))