这可能是一个非常特殊的问题,但是我创建了这个函数(请参见下文),每次尝试使用else语句以普通= FALSE aka运行时,都会出现以下错误:加载所需的名称空间:gsl失败,错误:“没有名为“ gsl”的软件包”如果normal = TRUE,我不会收到错误消息。我尝试安装gsl软件包,但无法执行。你们中的一个人知道为什么首先出现错误术语吗?谢谢你的帮助!
if(normal==TRUE){
moments1 <- c(mean=0, variance=var1, skewness=0, kurtosis=3.0)
moments2 <- c(mean=0+(-es*(sqrt(((sample1-1) *(var1)+(sample2-1)*(var2))/(sample1+sample2-2)))), variance=var2, skewness=0, kurtosis=3.0)
} else{
moments1 <- c(mean=0, variance=var1, skewness=0.5, kurtosis=5.0)
moments2 <- c(mean=0+(-es*(sqrt(((sample1-1) *(var1)+(sample2-1)*(var2))/(sample1+sample2-2)))), variance=var2, skewness=0.5, kurtosis=5.0)
}
gen1 <- rpearson(n=sample1, moments=moments1)
gen2 <- rpearson(n=sample2, moments=moments2)
Y <- c(gen1, gen2)
group <- as.factor(c(rep(1, times=length(gen1)), rep(2, times=length(gen2))))
SimData <- data.frame(Y,group)
return(SimData)
}
[如果您查看the code of rpearson
,您会看到此函数调用辅助功能rpearson
,rpearson0
,rpearsonI
,...或rpearsonII
,具体取决于rpearsonVII
或[C0 ]参数。
现在,params
函数将调用moments
函数。因此,要使用此功能,您需要rpearsonIV
软件包。