search for: tround

Displaying 1 result from an estimated 1 matches for "tround".

Did you mean: around
2011 Dec 31
2
Very strange function() behaviour.
...;) else fake<-1 }} options(warn=-1) a<-as.numeric(tstat);b<-a[!is.na(a)] if(sum(b)>0){a<-cbind(1:length(tstat),a);a<-a[!is.na(a[,2]),1];tstat[a]<-c("ERROR")} else fake<-1 data2<-array(tstat,dim=dim(t)) dimnames(data2)<-dimnames(t) t2<-format(round(t,tround),nsmall=tround,trim=T) if(is.null(co)==FALSE){ co<-format(round(co,coefround),nsmall=coefround,trim=T) t<-paste(co,c("("),t2,c(")"),data2,sep="") t<-array(t,dim=c(length(t),1)) dimnames(t)<-dimnames(data2) } else {t<-data2} if(length(dim(t3))>1 &amp...