Displaying 3 results from an estimated 3 matches for "splitvar".
Did you mean:
splitvars
2009 Jan 31
1
display p-values and significance levels
...t.test between the species "setosa" and
"versicolor" for Sepal.length, ..width..... and so on and display it int
the horizontal panel
I would appreciate any help,
Herwig
here the code I've got at the moment:
panel.cor <- function(x, y, digits=2, prefix="", splitvar, col.cor, ...)
{
usr <- par("usr"); on.exit(par(usr))
par(usr = c(0, 1, 0, 1))
r <- abs(cor(x, y))
if(!missing(splitvar)) {
r <- c(r, abs(sapply(lapply(split(cbind.data.frame(x, y),
splitvar), cor), function(x)x[1,2])))
}
txt <- format(c(r, 0.123456789...
2004 Jul 16
3
Strange (non-deterministic) problem with strsplit
...List of 3
$ y: chr "y+x+d"
$ x: chr "b+d+e"
$ g: chr "a*[square box]"
(square box not reproduced here because copy and pasting it seems to
break my web mail)
Can anyone reproduce the problem and/or suggest any solutions?
parseFormula <- function(formula) {
splitvars <- function(x) {
strsplit(x, "\\+|\\*")[[1]]
}
stripwhitespace <- function(x) {
gsub("\\s", "", x, perl=T)
}
vars <- stripwhitespace(as.character(formula)[3])
varsplit <- strsplit(vars, "|", fixed=TRUE)[[1]]
parts <- list(
y = s...
2004 Jul 16
3
Strange (non-deterministic) problem with strsplit
...List of 3
$ y: chr "y+x+d"
$ x: chr "b+d+e"
$ g: chr "a*[square box]"
(square box not reproduced here because copy and pasting it seems to
break my web mail)
Can anyone reproduce the problem and/or suggest any solutions?
parseFormula <- function(formula) {
splitvars <- function(x) {
strsplit(x, "\\+|\\*")[[1]]
}
stripwhitespace <- function(x) {
gsub("\\s", "", x, perl=T)
}
vars <- stripwhitespace(as.character(formula)[3])
varsplit <- strsplit(vars, "|", fixed=TRUE)[[1]]
parts <- list(
y = s...