Displaying 3 results from an estimated 3 matches for "makelabel".
Did you mean:
makelabels
2012 Dec 17
2
Suggestion: 'method' slot for format.ftable()
...mpact"),
sep=" \\ ", ...)
{
if(!inherits(x, "ftable"))
stop("'x' must be an \"ftable\" object")
charQuote <- function(s)
if(quote) paste0("\"", s, "\"") else s
makeLabels <- function(lst) {
lens <- sapply(lst, length)
cplensU <- c(1, cumprod(lens))
cplensD <- rev(c(1, cumprod(rev(lens))))
y <- NULL
for (i in rev(seq_along(lst))) {
ind <- 1 + seq.int(from = 0, to = lens[i] - 1) * cplensD[i + 1]...
2006 Nov 07
1
Better way to create tables of mean & standard deviations
...umber (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[cnt] <- paste(l...
2007 Jun 19
3
Controlling text and strip arrangement in xyplot
I've searched the archives and read the xyplot help but can't figure
out the 2 lattice questions below?
Consider:
library(lattice)
DF <- data.frame(x=rnorm(20), y=rnorm(20), g1=rep(letters[1:2], 10),
g2=rep(LETTERS[1:2], each=10),
g3=rep(rep(letters[3:4],each=5),2))
xyplot(y ~ x | g1 + g2, groups=g3, data=DF)
1) Is there a way to get one strip per row and column