brgenV <- function(n, p) {
out <- numeric()
cu = cugenV(n)
for(i in 1:n){
if (cu[i] <= p) {
out[i] = 1;
} else {
out[i] = 0;
}
}
return(out)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.