Displaying 3 results from an estimated 3 matches for "joint_prob".
Did you mean:
joint_probs
2009 Dec 15
1
Changing Column names in (Output) csv file
...9,0.19,0.72)
range_prob[[6]] <- c(0.42,0.21,0.37)
range_prob[[7]] <- c(0.44,0.07,0.49)
range_prob[[8]] <- c(0.54,0.06,0.40)
range_prob[[9]] <- c(0.26,0.62,0.12)
range_prob[[10]] <- c(0.65,0.19,0.16)
pdf <- expand.grid(range_prob)
data_lab$probs <- apply(pdf, 1, prod)
joint_probs = xtabs(probs ~ Var1 + Var2+Var3+Var4+Var5+Var6+Var7+Var8+Var9+Var10, data = data_lab)
write.csv(data.frame(joint_probs), 'joint_probs.csv', row.names = FALSE)
ONS = read.csv('joint_probs.csv')
Names = NULL
for (i in 1:length(joint_probs))
{
Names[i] = paste(ONS$Var...
2009 Dec 28
2
Modified R Code
...b_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(prob_4$rate4_prob1,prob_4$rate4_prob2, prob_4$rate4_prob3)
## COMPUTATIONS
pdf <- expand.grid(range_prob)
data_lab$probs <- apply(pdf, 1, prod)
joint_probs = xtabs(probs ~ Var1 + Var2+Var3+Var4, data = data_lab)
write.csv(data.frame(joint_probs), 'joint_probs.csv', row.names = FALSE)
#______________________________________________________________________________________________________________________________________________________________...
2010 Feb 10
4
Readjusting the OUTPUT csv file
..., 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(range_prob)
data_lab$probs = apply(pdf, 1, prod)
joint_probs = xtabs(probs ~ Var1 + Var2 + Var3, data = data_lab)
write.csv(data.frame(joint_probs), 'joint_probs3.csv', row.names = FALSE)
# _________________________________________________________________________________________________
ONS3 = read.csv('joint_probs3.csv')
names3 = appl...