我試圖計算一串長序列之間的成對差異的數量,並將其放回矩陣形式。這是我想要做的一個玩具例子。 library(MiscPsycho)
b <- c("-BC", "ACB", "---") # Toy example of sequences
workb <- expand.grid(b,b)
new <- c(1:9)
# Need to get rid of this for loop
我有一個醫生訪問記錄的大數據框。每個記錄(行)最多可以有11個診斷代碼。我想知道每行有多少個非NA診斷代碼。 下面是數據的一個樣本: diag1 diag2 diag3 diag4 diag5 diag6 diag7 diag8 diag9 diag10 diag11
786 272 401 782 250 91912 530 NA NA NA NA
845 530 338 311 NA N
我需要結合JavaScript的call()和apply()方法的強大功能。我遇到的問題是call()保留了對this的適當引用,但是當我需要它作爲函數參數發送時,我將它作爲數組發送給參數數組。 apply()方法在使用數組時很好地向函數發送參數,但我不知道如何發送this方法似乎自然有權訪問的適當引用。 下面是我的代碼的簡化版本,它可能看起來很無用,但在它的一個很好的方式獲得分數: // AN