lapply

    1熱度

    3回答

    我一直在搞這個一段時間。我最近開始使用quantmod軟件包對股票價格進行分析。 我有一個股票載體,看起來像下面這樣: > tickers [1] "SPY" "DIA" "IWM" "SMH" "OIH" "XLY" "XLP" "XLE" "XLI" "XLB" "XLK" "XLU" "XLV" [14] "QQQ" > str(tickers) chr [1:14] "SPY"

    7熱度

    2回答

    假設我們有一個用作lapply函數輸入對象的列表(mylist)。有沒有辦法知道mylist中的哪個元素正在被評估?該方法應該適用於lapply和snowfall::sfApply(以及可能的其他申請家庭成員)。 在chat上,Gavin Simpson建議採用以下方法。這對於lapply非常適用,但對於sfApply不適用。我想避免額外的軟件包或在列表中擺弄。有什麼建議麼? mylist <-

    5熱度

    2回答

    R教科書繼續推廣使用lapply而不是循環。這甚至對於參數的功能,如 lapply(somelist, f, a=1, b=2) ,但很容易,如果參數根據列表元素上改變什麼? 假設我somelist包括: somelist$USA somelist$Europe somelist$Switzerland 加有anotherlist與同一地區,我想用這些不斷變化的參數lapply使用?例

    1熱度

    2回答

    我已經在模擬研究中針對lapply()的應用碰壁了。這些數據旨在幫助我們瞭解標準化公式如何影響提案評分工作的結果。 評分者有三個條件:沒有偏見,統一偏見(評價者之間的偏見增加)和雙向偏好(偏向評分者在評分者之間平衡正反兩方面)。 提案的真實值假定已知。 我們希望在每個偏好條件下生成一套複製數據集,以便數據集可以模擬單個提案評估期(一個面板)。然後,我們希望複製面板以模擬許多投標評估期。 這裏是示意

    8熱度

    2回答

    是否有一個函數可以從coeftest對象中提取兩個或多個列?一次只能容納一個coeftest對象,但是我可以對列表執行相同操作(除了for()循環外)嗎? > # meaningless data > temp <- data.frame(a = rnorm(100, mean = 5), b = rnorm(100, mean = 1), + c = 1:100) > formul

    1熱度

    1回答

    我想從深度嵌入列表中提取元素到數組中。例如,我在每個網格點(2x2)執行t檢驗,並希望將每個p值從t檢驗保存到2x2陣列而不是嵌套for循環。 (我的數據集是相當大的。) z <- rnorm(2*2*2) z <- array(z, dim=c(2,2,2)) ttest <- apply(z, c(1,2), function(x) t.test(x, mu=.3, var.equal=

    0熱度

    1回答

    是否有可能引用在sfLapply呼叫迭代次數如下 - wrapper <- function(a) { y.mat <- data.frame(get(foo[i,1]), get(foo[i,2])) ... ... do other things.... } results <- sfLapply(1:200000, wrappe

    4熱度

    2回答

    定義列表反黑有兩個dataframes,DF1和DF2 dats <- list(df1 = data.frame(a=sample(1:3), b = sample(11:13)), df2 = data.frame(a=sample(1:3), b = sample(11:13))) > dats $df1 a b 1 2 12 2 3 11 3 1 13

    5熱度

    2回答

    假設我有一個從MySQL表讀取數據的函數,操縱它並返回一些data.frame。需要注意的功能僅僅是其功能不要緊本身......我結束了一個名爲data.frame的是myDF例子,例如: addRowSd <- function(table,con,pattern="^Variable") { dframe <- dbReadTable(con,table) cn <- colnames(

    1熱度

    3回答

    我試圖從尾部空格中清除數據幀中的因子變量。然而,水平分配不適用於我的lapply函數。 rm.space<-function(x){ a<-gsub(" ","",x) return(a)} lapply(names(barn),function(x){ levels(barn[,x])<-rm.space(levels(barn[,x])) })