Início / user-1539216

ivo Welch's questions

Martin Hope
ivo Welch
Asked: 2025-01-19 03:27:35 +0800 CST
  • 6

na versão R 4.4.2 (2024-10-31) -- "Pile of Leaves", último macos

$ R --vanilla
> load(file="tttdf")
> str(ttt)
'data.frame':   3 obs. of  17 variables:
 $ .mn.r      : num  0 0 0
 $ .sd.r      : num  0 0 0
 $ .mn.g      : num  0 0 0
 $ .sd.g      : num  0 0 0
 $ .cor.r.g   : num  1 1 1
 $ sep        : num  -1 -1 -1
 $ beta.g.ldp : num  0 0 0
 $ beta.dp.ldp: num  1 1 1
 $ beta.r.ldp : num  0 0 0
 $ sep        : num  -2 -2 -2
 $ lastdpr    : num  -3 -5 -6
 $ declinedpr : num  0 2 3
 $ sep        : num  -3 -3 -3
 $ beta.r.lr  : num  0 0 0
 $ beta.g.lg  : num  0 0 0
 $ beta.g.lr  : num  0 0 0
 $ beta.r.lg  : num  0 0 0

ttt <- within(ttt, hello <- 22)

Error in `[<-.data.frame`(`*tmp*`, nl, value = list(hello = 22, .mn.r = c(0,  : 
  duplicate subscripts for columns
> ## make it work
> xxx <- ttt[,1:ncol(ttt)]
> xxx <- within(xxx, hello <- 22)

Não tenho ideia do que pode estar causando isso. É por isso que não posso encurtar o exemplo, também --- por exemplo, removendo colunas.

Martin Hope
ivo Welch
Asked: 2024-12-14 06:17:01 +0800 CST
  • 7

Muitas vezes tenho um código que se parece com

rbind.oc.by <- function (indata, INDICES, FUN, ...) {
    result <- by( indataframe, INDICES, FUNIN, ... )
    t(simplify2array(result))
}

mynewdata <- rbind.oc.by( dataframe, dataframe$variable, function(dd) { with(dd, ... } )

Então, estou testando:

set.seed(0)
if (!exists("X")) {
    X <- lapply( 1:10000000, function(i) {
        c(a=rnorm(1), b=rnorm(1), x="A", y= as.logical(rnorm(1)))
    })
}

## R CMD Rprof testprof.out                                                                                                         
Rprof("testprof.out")

intimealloc <- function() {
    as.data.frame(do.call("rbind", X))
}
v1 <- intimealloc()

firstalloc <- function() {
    simplify2array( t( X ))
}
v2 <- firstalloc()

Rprof(NULL)

simplify2array()é muito bom, cerca de 8 vezes mais rápido que do.call("rbind"). ainda assim, ainda estou me perguntando se há uma maneira de escrever uma versão especializada mais rápida que simplify2array()se baseie no fato de que os resultados são NULL ou todos no mesmo quadro de dados. presumivelmente não, mas pensei em perguntar.

Martin Hope
ivo Welch
Asked: 2024-08-30 01:05:00 +0800 CST
  • 5

no modo markdown, o emacs permite que SHIFT-TAB alterne entre a visualização de conteúdo (1 nível), visualização de estrutura de tópicos (todos os níveis) e visualização de documento (todo o texto). Eu gostaria que uma delas descesse apenas dois níveis ou adicionasse outra visualização que tivesse apenas dois níveis. Existe uma variável de personalização que eu possa inserir no .emacs que faria isso?

emacs