my.html.element <- function(i, j, k=NULL, p) { # VALUE Symbolic representation of element of matrix, possibly raised to power # # INPUT i row # j column # k exponent # p size of matrix (pxp) # # NOTE: This is a support function used in parsing detguides. # If p > 9, subscripts will contain a comma to separate row from column. # and to are written to file outside of this function. # if(p < 10){ out <- paste("v^{", k, "}_{", i, j, "}", sep="") if(is.null(k))out <- paste("v_{", i, j, "}", sep="") } else{ out <- paste("v^{", k, "}_{", i,",", j, "}", sep="") if(is.null(k))out <- paste("v_{", i, ",",j, "}", sep="") } out <- paste(out," ",sep="") out }