Displaying 1 result from an estimated 1 matches for "txtlab".
Did you mean:
txtlabs
2006 Nov 07
1
Better way to create tables of mean & standard deviations
...each batch number (iii) for each batch at
each laboratory for the attached data.
I created these functions:
summary.aggregate <- function(y, label, ...)
{
temp.mean <- aggregate(y, FUN=mean, ...)
temp.sd <- aggregate(y, FUN=sd, ...)
temp.length <- aggregate(y, FUN=length, ...)
txtlabs <-makeLabel(label,length(temp.mean$x))
temp <- data.frame(mean=temp.mean$x,stdev=temp.sd$x,n=temp.length$x,row.names=txtlabs)
}
makeLabel <- function(label,llength,increaseLag=FALSE)
{
x <- c()
for(cnt in 1:llength)
{
if(increaseLag == TRUE && mode(cnt/2))
{
}
x[cn...