Displaying 2 results from an estimated 2 matches for "output_avg".
2011 Mar 11
1
Generation of random numbers in a function - (Return command)
...generate 1000 random no.s for each of these products and find the respective mean and standard deviation.
My R code is as follows.
library(plyr)
library(reshape2)
filtered_new <- data.frame(product_name = c("P1", "P2", "P3", "P4", "P5"),
output_avg = c(22.71078,22.16979,21.34420,20.17421,19.83799),
output_stdev = c(23.59924,21.21430,22.01025,18.88877,18.80436))
n <- 100
myfunction_mc = function(product_name, output_avg, output_stdev)
{
product_usage_borrowing_room_mc = rnorm(n, output_avg, output_stdev)
output_avg_mc =
mean(product_u...
2012 Sep 12
6
How to append the random no.s for different variables in the same data.frame
...ncerely apologize if I have not put forward my following query properly, though I have tried to do so.)
Following is a curtailed part of my R - code where I am trying to generate say 100 random no.s for each of the products under consideration.
library(plyr)
n = 100
my_code = function(product, output_avg, output_stdev)
{
BUR_mc = rnorm(n, output_avg, output_stdev)
sim_BUR = data.frame(product, BUR_mc)
write.csv(data.frame(sim_BUR), 'sim_BUR.csv', row.names = FALSE)
return(list(output_avg, output_stdev))
}
result <- dlply(.data = My_data, .variables = "product"...