主页 / user-1539216

ivo Welch's questions

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

在 R 版本 4.4.2 (2024-10-31) 下 -- “Pile of Leaves”，最新的 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)

我不知道是什么原因造成的。这就是为什么我无法缩短示例——例如，通过删除列。

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

我经常有这样的代码

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, ... } )

因此，我正在测试它：

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()非常好，比快大约 8 倍do.call("rbind")。但是，我仍然想知道是否有办法编写一个更快的专门版本，simplify2array()该版本依赖于结果为 NULL 或所有相同的数据框这一事实。大概没有，但我想我会问。

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

在 markdown 模式下，emacs 允许 SHIFT-TAB 在内容视图（1 级）、大纲视图（所有级别）和文档视图（所有文本）之间循环。我希望其中一个视图只向下移动两级，或者添加另一个只有两级的视图。有没有可以粘贴到 .emacs 中的自定义变量来实现这一点？

emacs