top.vp <- viewport(y = 0, height = unit(1, "npc"), width = unit(1, "npc"), just = c("centre", "bottom"))
  layMat <- matrix(c(0,1), nrow=2L, ncol=1L, byrow=TRUE)
  grid.show.layout(grid.layout(2, 1, respect = layMat, heights=unit(c(.9, .25), "npc"), widths=unit(1, "npc") ), vp = top.vp)
  do.label("This is the title to the page")
  #----------------------------


  layout(mat=matrix(c(1,1), nrow=2))

  top.vp <- viewport(y = 0, height = unit(1, "npc"), width = unit(1, "npc"), just = c("centre", "bottom"))
  layMat <- matrix(c(0,1), nrow=2L, ncol=1L, byrow=TRUE)
  vpTest <- viewport(layout=grid.layout(2, 1, respect = layMat, heights=unit(c(.9, .25), "npc"), widths=unit(1, "npc") ))
    , vp = top.vp)
  do.label("This is the title to the page")

  viewport(width = 0.5, height = 0.5, x = 0.5, y = 0.5, just = c("right","bottom"))

  #----------------------------

vp.graph <- viewport(width=unit(1, "npc"), height=unit(0.8, "npc"), just=c("centre","top"), x=0.5, y=1)
print(lmSDplot, vp=vp.graph)

vp.sdnums <- viewport(width=unit(1, "npc"), height=unit(0.8, "npc"), just=c("centre","top"), x=0.5, y=1)
print(lmSDplot, vp=vp.graph)



print(lmSDplot, vp=vp.q1)

vp2 <- viewport(width = 0.5, height = 0.5)