Nothing
#[export]
is.lower.tri <- function(x,diag = FALSE) {
.Call(Rfast2_is_lower_tri, x, diag)
}
#[export]
is.upper.tri <- function(x,diag = FALSE) {
.Call(Rfast2_is_upper_tri, x, diag)
}
#[export]
is.skew.symmetric<-function(x){
.Call(Rfast2_is_skew_symmetric, x)
}
#[export]
lud <- function(x) {
.Call(Rfast2_lud, x)
}
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.