TODO: this is probably better than repeating most of the function body for each.
f_NodeUniform(f)
f | function name |
---|
mean_distributions sample_distributions
meanNodeUnif <- f_NodeUniform(mean_distributions) meanNodeUnif(unif_distn)#> Error in meanNodeUnif(unif_distn): object 'unif_distn' not foundsampleNodeUnif <- f_NodeUniform(sample_distributions) sampleNodeUnif(unif_distn)#> Error in sampleNodeUnif(unif_distn): object 'unif_distn' not found