## File Name: ruvn.R
## File Version: 0.02
ruvn <- function(N, mean=0, sd=1, exact=TRUE)
{
x <- stats::rnorm(N, mean=mean, sd=sd)
y <- x
if (exact){
v1 <- sirt_var(x)
m1 <- mean(x)
y <- mean+(x-m1)/sqrt(v1)*sd
}
#--- output
return(y)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.