Displaying 2 results from an estimated 2 matches for "names3".
Did you mean:
names
2013 Feb 17
6
histogram
HI Elisa,
You could use ?cut()
vec1<-c(33,18,13,47,30,10,6,21,39,25,40,29,14,16,44,1,41,4,15,20,46,32,38,5,31,12,48,27,36,24,34,2,35,11,42,9,8,7,26,22,43,17,19,28,23,3,49,37,50,45)
label1<-unlist(lapply(mapply(c,lapply(seq(0,45,5),function(x) x),lapply(seq(5,50,5),function(x) x),SIMPLIFY=FALSE),function(i) paste(i[1],"<x<=",i[2],sep="")))
2010 Feb 10
4
Readjusting the OUTPUT csv file
...d)
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 = apply(ONS3[, -4], 1, paste, collapse = ' ')
write.csv(data.frame(rate_combination = names3, Probability3 = ONS3[, 4]), 'prob_table3.csv', row.names = FALSE)
### ###### __________________________________________________
no_of_instances = N*(read.csv('prob_table3.csv')...