Nothing
Hreprrational <- function(pts) { ## input numeric or rational, output rational
#print(nrow)
colNames <- colnames(pts)
if(inherits(pts[1],"character")) {
foo <- cbind("0", "1", pts)
} else {
# it's important to use rationals in scdd.
########### nr <- nrow(pts)
foo <- cbind(0, 1, pts)
foo <- d2q(foo)
}
foorational <- scdd(foo, representation = "V", roworder="maxcutoff")$output # H repr from V repr.
if (!is.null(colNames)) colnames(foorational) <- c("eq", "b", colNames) ## not very useful ?
return(foorational)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.