Displaying 1 result from an estimated 1 matches for "coefround".
2011 Dec 31
2
Very strange function() behaviour.
...a(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 &&
length(dim(t3)[dim(t3)==1])==0)t<-array(t,dim=dim(t3)) else fake<-1...