это может быть очень специфический вопрос, но у меня есть эта функция (см. Ниже), которую я создал, и каждый раз, когда я пытаюсь запустить ее с помощью normal = FALSE, то есть с помощью оператора else, я получаю следующую ошибку: Загрузка требуемого пространства имен: Ошибка 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)
}