# NOT RUN {
SPL.Lines.mat <- matrix(as.numfac(Lines), ncol=16, byrow=T)
colnames(SPL.Lines.mat) <- 1:16
rownames(SPL.Lines.mat) <- 1:10
SPL.Lines.mat <- SPL.Lines.mat[10:1, 1:16]
designPlot(SPL.Lines.mat, labels=1:10, new=TRUE,
rtitle="Rows",ctitle="Columns",
chardivisor=3, rcellpropn = 1, ccellpropn=1,
plotcellboundary = TRUE)
#Plot Mainplot boundaries
blockboundaryPlot(blockdefinition = cbind(4,16), rstart = 1,
blocklinewidth = 3, blockcolour = "green",
nrows = 9, ncolumns = 16)
blockboundaryPlot(blockdefinition = cbind(1,4),
blocklinewidth = 3, blockcolour = "green",
nrows = 1, ncolumns = 16)
blockboundaryPlot(blockdefinition = cbind(1,4), rstart= 9, nrows = 10, ncolumns = 16,
blocklinewidth = 3, blockcolour = "green")
#Plot all 4 block boundaries
blockboundaryPlot(blockdefinition = cbind(8,5,5,4), blocksequence=T,
cstart = 1, rstart= 1, nrows = 9, ncolumns = 15,
blocklinewidth = 3,blockcolour = "blue")
blockboundaryPlot(blockdefinition = cbind(10,16), blocklinewidth=3, blockcolour="blue",
nrows=10, ncolumns=16)
#Plot border and internal block boundaries only
blockboundaryPlot(blockdefinition = cbind(8,14), cstart = 1, rstart= 1,
nrows = 9, ncolumns = 15,
blocklinewidth = 3, blockcolour = "blue")
blockboundaryPlot(blockdefinition = cbind(10,16),
blocklinewidth = 3, blockcolour = "blue",
nrows = 10, ncolumns = 16)
# }
Run the code above in your browser using DataLab