我有一個關于在 R 中針對不同引數設定有效運行模擬的問題。我有一些計算樣本大小的函式，作為輸入，它需要兩個值。如何為每輪不同的引數設定多次運行此函式。
這是我的功能：
samplesize <- function(var1, var2, cyc = 4){
sd_sampsize <- sqrt(var1 (2*var2)/cyc)
# Calculate the corresponding sample size plugging in the standard deviation
pwrcalc <- pwr.t.test(d = 1/sd_sampsize, power = 0.8, sig.level = 0.05,
type = "paired", alternative = "two.sided")
# Extract the sample size from 'pwrcalc'
finsampsize <- pwrcalc$n
return(list(sd_sampsize, finsampsize))
}
因此，我希望var1和var2改變（比如說var1為1，2和3以及var2為0.20，0.50，0.80）。我如何能做到這一點，而無需運行函式幾次的所有不同的組合var1和var2？先感謝您！
uj5u.com熱心網友回復：
一種選擇
var1=c(1,2,3)
var2=c(0.2,0.5,0.8)
cmb=expand.grid(var1,var2)
wut=function(x){
v1=x[1]
v2=x[2]
list(v1,v2)
}
apply(cmb,1,wut)
請注意在您在函式中執行操作之前如何將輸入 x 分隔為 var1 和 var2，如果您想保持現有函式不變 - 不更改現有代碼。
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/403204.html
標籤：
上一篇：R Shiny：二維碼生成和下載
下一篇：如何找到字串中的最后一組數字