Displaying 1 result from an estimated 1 matches for "vecnew".
2013 Feb 17
1
addition in the initial question
...TERS[1:26]
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="")))
?dat1<-data.frame(vec2,class=cut(vec2,breaks=seq(0,50,5),labels=label1),stringsAsFactors=FALSE)
?vecNew<-cut(vec2,breaks=seq(0,50,5),labels=label1)
res<-data.frame(aggregate(row.names(dat1)~class,dat1,function(x) x),Frequency=as.data.frame(table(vecNew))[,2],stringsAsFactors=FALSE)
?names(res)[2]<- "header_elements_class"
?res
#????? class header_elements_class Frequency
#1??? 0<...