Displaying 3 results from an estimated 3 matches for "range_prob".
2009 Dec 15
1
Changing Column names in (Output) csv file
...uot;, "R53"), c("R61", "R62", "R63"), c("R71", "R72", "R73"), c("R81", "R82", "R83"), c("R91", "R92", "R93"), c("R101", "R102", "R103"))
range_prob <- list()
range_prob[[1]] <- c(0.42,0.22,0.36)
range_prob[[2]] <- c(0.14,0.56,0.30)
range_prob[[3]] <- c(0.61,0.38,0.01)
range_prob[[4]] <- c(0.34,0.37,0.29)
range_prob[[5]] <- c(0.09,0.19,0.72)
range_prob[[6]] <- c(0.42,0.21,0.37)
range_prob[[7]] <- c(0.44,0.07,0.49)...
2009 Dec 28
2
Modified R Code
...rate jth range i.e. R23 represents 3rd Range of Rate 2
data_lab <- expand.grid(c("R11", "R12", "R13"), c("R21", "R22", "R23"), c("R31", "R32", "R33"), c("R41", "R42", "R43"))
range_prob <- list()
range_prob[[1]] <- c(prob_1$rate1_prob1,prob_1$rate1_prob2, prob_1$rate1_prob3)
range_prob[[2]] <- c(prob_2$rate2_prob1,prob_2$rate2_prob2, prob_2$rate2_prob3)
range_prob[[3]] <- c(prob_3$rate3_prob1,prob_3$rate3_prob2, prob_3$rate3_prob3)
range_prob[[4]] <- c(pro...
2010 Feb 10
4
Readjusting the OUTPUT csv file
...te(rate_name3, 2, sep = "")
R33 = paste(rate_name3, 3, sep = "")
R34 = paste(rate_name3, 4, sep = "")
R35 = paste(rate_name3, 5, sep = "")
data_lab <- expand.grid(c(R11, R12, R13, R14, R15), c(R21, R22, R23, R24, R25), c(R31, R32, R33, R34, R35))
range_prob <- list()
range_prob[[1]] = c(rateA_prob1, rateA_prob2, rateA_prob3, rateA_prob4, rateA_prob5 )
range_prob[[2]] = c(rateB_prob1, rateB_prob2, rateB_prob3, rateB_prob4, rateB_prob5 )
range_prob[[3]] = c(rateC_prob1, rateC_prob2, rateC_prob3, rateC_prob4, rateC_prob5 )
pdf = expand.grid(...