使用循環或應用命令來計算R中

Question

我想使用循環或申請命令來解決這個問題，但未能ü統計。

Answer 1

如果使用data.table，溶液可以與CJ.dt功能（https://stackoverflow.com/a/27347397/5744762）的幫助下找到。以下是我認爲你正在尋找與你提供的有限說明。

library(data.table) 

#Create sample datasets 
DT_tor <- data.table(ID = 1:100, time_tor = abs(rnorm(100))) 
DT_bunny <- data.table(ID = 1:100, time_bunny = abs(rnorm(100))) 

#CJ.dt function 
CJ.dt = function(X,Y) { 
    stopifnot(is.data.table(X),is.data.table(Y)) 
    k = NULL 
    X = X[, c(k=1, .SD)] 
    setkey(X, k) 
    Y = Y[, c(k=1, .SD)] 
    setkey(Y, NULL) 
    X[Y, allow.cartesian=TRUE][, k := NULL][] 
} 

#Crossjoin two data.tables 
DT_CJ <- CJ.dt(DT_tor, DT_bunny) 

#Get a score for the tortoise and a score for the bunny 
Score_tor <- DT_CJ[time_tor < time_bunny, .N] 
Score_bunny <- DT_CJ[time_tor > time_bunny, .N]