Nothing
is.GNARnet <- function(x){
results <- vector(mode="logical", length=9)
results[1] <- is.list(x)
results[2] <- all(names(x) == c("edges", "dist"))
results[3] <- length(x$edges)==length(x$dist)
if(sum(results)==3){
results[4] <- all(sapply(x$edges, length)==sapply(x$dist,length))
tmp2 <- 1:length(x$edges)
results[5] <- all(unlist(x$edges)%in%tmp2)
results[6] <- class(x) == "GNARnet"
results[7] <- all(sapply(x$edges, length)==sapply(lapply(x$edges, unique), length))
results[8] <- all(unlist(x$dist)>0)
}
if(sum(results)==8){
selfloop <- function(n){
return(n %in% x$edges[[n]])
}
results[9] <- all(sapply(tmp2, selfloop)==FALSE)
}
return(all(results))
}
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.