shape <- list(c(1,2,3),
c(1,2,3),
c(1:5),
c(1:5))
extendHorVer(i = 25,
j = 25,
shapeCross = shape,
rowLimit = 50,
colLimit = 50)
Run the code above in your browser using DataLab