R 使用“…”时出错&引用;作为函数的输入 数据\u生成器下面是代码的其余部分,outdist只使用…一次。不知何故,添加。。。在一个论点使它成为可选的之后?那不是。。。是用于。使用once是解决方案,但函数中有2个可选参数,如何管理该问题可选参数意味着,用户
使用“…”时出错&引用;作为函数的输入R 使用“…”时出错&引用;作为函数的输入 数据\u生成器下面是代码的其余部分,outdist只使用…一次。不知何故,添加。。。在一个论点使它成为可选的之后?那不是。。。是用于。使用once是解决方案,但函数中有2个可选参数,如何管理该问题可选参数意味着,用户,r,R,使用“…”时出错&引用;作为函数的输入 数据\u生成器下面是代码的其余部分,outdist只使用…一次。不知何故,添加。。。在一个论点使它成为可选的之后?那不是。。。是用于。使用once是解决方案,但函数中有2个可选参数,如何管理该问题可选参数意味着,用户可以选择数据集的分布(正态或指数以及不同参数)和特定数量的异常值分布。 data_generate<-function(length, per, dist = c("gaussian", "exponen
数据\u生成器下面是代码的其余部分,outdist只使用…
一次。不知何故,添加。。。在一个论点使它成为可选的之后?那不是。。。是用于。使用once是解决方案,但函数中有2个可选参数,如何管理该问题可选参数意味着,用户可以选择数据集的分布(正态或指数以及不同参数)和特定数量的异常值分布。
data_generate<-function(length, per, dist = c("gaussian", "exponential"),...,
outdist=c("gaussian", "exponential"),... ){
outdist <- match.arg(outdist) outlier=per*length/100
if(dist=="gaussian"){
data <- rnorm(length,...)
if(outdist=="normal"){
ot <- rnorm(outlier,...) }
else{ot <- rexp(outlier,...) }
dist <- length/outlier out1<-seq(start, length, by = dist)
out2 <- seq(start, 0, by= -dist) outlier<-unique(c(out1,out2))
out <- outlier
data[out] <- ot print(data) }else{ if (dist=="exponential"){
dist <- match.arg(dist)