Displaying 3 results from an estimated 3 matches for "namef".
Did you mean:
name
2009 Apr 17
1
cast function in package reshape
...t;- function(x) {
lev <- unique(x[!is.na(x)])
nlev <- length(lev)
args <- alist(x=)
if (nlev == 1) {
body <- c("{", "sum(!is.na(x))", "}")
f <- function() {}
formals(f) <- as.pairlist(args)
body(f) <- parse(text = body)
namef <- paste("freq", as.character(nlev), sep = "_")
assign(namef, f)
res <- list(get(namef))
names(res) <- namef
}
if (nlev > 1) {
res <- NULL
namesf <- NULL
for (i in 1:nlev) {
body <- c("{", paste("sum(x[!is.na(...
2005 Jul 07
1
Tables: Invitation to make a collective package
...a.frame <- function(df,
k,
by,
breaks=c('Sturges', 'Scott', 'FD'),
right=FALSE)
{
stopifnot(is.data.frame(df))
tmpList <- list()
nameF <- character()
nameY <- character()
# User didn't defines a factor
if (missing(by)) {
logCol <- sapply(df, is.numeric)
for (i in 1:ncol(df)) {
if (logCol[i]) {
x <- as.matrix(df[ ,i])
tbl <- tb.make.table.II(x, k, breaks...
2007 Dec 09
8
zpool kernel panics.
Hi Folks,
I''ve got a 3.9 Tb zpool, and it is casing kernel panics on my Solaris
10 280r (SPARC) server.
The message I get on panic is this:
panic[cpu1]/thread=2a100a95cc0: zfs: freeing free segment
(offset=423713792 size=1024)
This seems to come about when the zpool is being used or being
scrubbed - about twice a day at the moment. After the reboot, the
scrub seems to have