Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/77.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 使用“…”时出错&引用;作为函数的输入 数据\u生成器下面是代码的其余部分,outdist只使用…一次。不知何故,添加。。。在一个论点使它成为可选的之后?那不是。。。是用于。使用once是解决方案,但函数中有2个可选参数,如何管理该问题可选参数意味着,用户_R - Fatal编程技术网

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)