Network analysis in test results in R
# Install from GitHub
# install.packages('devtools')
devtools::install_github('Wences91/testnet')
Read data.
# import data
answers <- read.delim('data/answers.tsv',
stringsAsFactors = FALSE, check.names = FALSE)
categories <- read.delim('data/categories.tsv',
header = FALSE,
colClasses = c('character'),
stringsAsFactors = FALSE, check.names = FALSE)
c_answers <- read.delim('data/correct_answers.tsv',
header = FALSE,
colClasses = c('character'),
stringsAsFactors = FALSE, check.names = FALSE)
Obtain edges and create co-fails network.
edges <- testnet::obtain_edges(answers, c_answers, avoid = c('13', '64', '47'))
tm_net <- testnet::co_fails(edges)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.