Displaying 1 result from an estimated 1 matches for "increaselag".
Did you mean:
increaseing
2006 Nov 07
1
Better way to create tables of mean & standard deviations
...ate(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[cnt] <- paste(label,cnt)
}
x
}
and can use the following commands to create tables of means etc.
print(summary.aggregate(data.ceramic$Y,"Lab",by=list(data.ceramic$Lab)))
to...