Nothing
add_noise <-
function(data_theta_Ts){
## Add heteroscedastic noise to simulations
temp <- cbind(data_theta_Ts[,1], matrix(rnorm(n = (ncol(data_theta_Ts) - 1) * nrow(data_theta_Ts), mean = as.numeric(data_theta_Ts[,-1]), sd = sqrt(0.01 + 0.04 * as.numeric(data_theta_Ts[,-1])^2 ) ), nrow(data_theta_Ts), ncol(data_theta_Ts) - 1 ) )
dimnames(temp) <- dimnames(data_theta_Ts)
temp
}
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.