#testing CV-related functions
## code here that contains the tests
rm(list = ls())
library(PAFit)
set.seed(1)
prob_m <- "FALSE"
inc <- "FALSE"
log <- c("FALSE")
i <- 1
net <- generate_net(N = 1000, m = 5,prob_m = prob_m,
increase = inc, log = log, multiple_node = 100, num_seed = 100,
mode = i, s = 10, alpha = 1)
net_stats <- get_statistics(net,deg_threshold = 1,
binning = TRUE, g = 50)
result <- only_F_estimate(net,net_stats)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.