Displaying 5 results from an estimated 5 matches for "condnames".
2013 Jul 04
2
Modificar una función de un paquete
Estimados miembros de la lista.
Estoy trabajando con la función mosaic del paquete vcd. Cómo puedo hacer
para ver el contenido fe la función y modificar algunos de sus argumentos?
Muchas gracias,
Manuel
--
*Manuel Spínola, Ph.D.*
Instituto Internacional en Conservación y Manejo de Vida Silvestre
Universidad Nacional
Apartado 1350-3000
Heredia
COSTA RICA
mspinola@una.ac.cr
2013 Jul 04
1
Modificar una función de un paquete
...<- eval(m$data, parent.frame())
>
> fstr <- strsplit(paste(deparse(**formula), collapse = ""), "~")
> vars <- strsplit(strsplit(gsub(" ", "", fstr[[1]][2]), "\\|")[[1]], "\\+")
> varnames <- vars[[1]]
>
> condnames <- if (length(vars) > 1) vars[[2]] else NULL
>
> dep <- gsub(" ", "", fstr[[1]][1])
> if (is.null(highlighting) && (!dep %in% c("","Freq"))) {
> if (all(varnames == ".")) {
> varnames <- if (is.data.fra...
2013 Jul 04
0
Modificar una función de un paquete
...pand.dots = FALSE)
edata <- eval(m$data, parent.frame())
fstr <- strsplit(paste(deparse(formula), collapse = ""), "~")
vars <- strsplit(strsplit(gsub(" ", "", fstr[[1]][2]), "\\|")[[1]], "\\+")
varnames <- vars[[1]]
condnames <- if (length(vars) > 1) vars[[2]] else NULL
dep <- gsub(" ", "", fstr[[1]][1])
if (is.null(highlighting) && (!dep %in% c("","Freq"))) {
if (all(varnames == ".")) {
varnames <- if (is.data.frame(data))
c...
2008 Feb 24
0
Color of CI bars in Hmisc::Dotplot()
...ers,
(1) I can't figure out how to tell Dotplot that I want the colors of
the CI bars to be the same as the colors of the dots.
For example:
t2a.ci3 <- data.frame(est = c(7, 20, 75), lower = c(-9, 0.5, 42),
upper = c(22, 39, 109))
mypal <- c('skyblue3', 'mistyrose3')
condNames <- c('noise', 'horn', 'marimba')
Dotplot(1:2 ~ Cbind(est, lower, upper), data = t2a.ci3,
scales = list(y = list(at = 1:2, labels = condNames)),
ylab = '',
xlab = 'rated duration', aspect = 0.2,
ylim = c(0.5, 2.5), panel = function(x, y){
panel.Dotplo...
2013 Jul 06
0
Modificar una función de un paquete
...> >
> > fstr <- strsplit(paste(deparse(**formula), collapse = ""), "~")
> > vars <- strsplit(strsplit(gsub(" ", "", fstr[[1]][2]), "\\|")[[1]],
> "\\+")
> > varnames <- vars[[1]]
> >
> > condnames <- if (length(vars) > 1) vars[[2]] else NULL
> >
> > dep <- gsub(" ", "", fstr[[1]][1])
> > if (is.null(highlighting) && (!dep %in% c("","Freq"))) {
> > if (all(varnames == ".")) {
> > varname...