Nothing
diag_param_boot <- function(lineup_list){
pos_list <- list(NULL)
for (i in 1:length(lineup_list)){
pos_list[[i]]= c(sort(unique(lineup_list[[i]])))
}
diagdf <- as.data.frame(matrix(ncol = 2,
nrow = length(lineup_list)))
for (i in 1:length(lineup_list)){
diagdf[i,1]= sum(lineup_list[[i]] == pos_list[[i]])
diagdf[i,2] = sum(lineup_list[[i]] != pos_list[[i]])
diagdf= as.data.frame(sapply(diagdf, as.numeric))
}
return(diagdf)
}
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.