sapply(1:10,function(i)mean((rexp(20)))
时间: 2023-10-22 10:03:27 浏览: 26
你在这段代码中使用了R语言的sapply函数,该函数用于对给定的向量或列表应用指定的函数。在这个例子中,你使用sapply对1到10的整数序列应用了一个匿名函数。
这个匿名函数使用了rexp函数来生成一个20个指数分布的随机数,并计算这个随机数向量的均值。sapply函数会对1到10的每个整数调用这个匿名函数,并返回一个包含了每次调用结果的向量。
需要注意的是,你的代码在最后没有闭合括号。正确的代码应该是:
sapply(1:10, function(i) mean(rexp(20)))
相关问题
Warning messages: 1: In mean.default(X[[i]], ...) : 参数不是数值也不是逻辑值:回覆NA 2: In mean.default(X[[i]], ...) : 参数不是数值也不是逻辑值:回覆NA 3: In mean.default(X[[i]], ...) : 参数不是数值也不是逻辑值:回覆NA 4: In mean.default(X[[i]], ...) : 参数不是数值也不是逻辑值:回覆NA 5: In mean.default(X[[i]], ...) : 参数不是数值也不是逻辑值:回覆NA 6: In mean.default(X[[i]], ...) : 参数不是数值也不是逻辑值:回覆NA
这些警告信息表明在计算均值时,某些参数既不是数值也不是逻辑值,导致结果为NA(缺失值)。这种情况通常发生在数据中存在非数值或非逻辑值的情况下。
为了解决这个问题,你可以尝试以下方法:
1. 检查数据框`src`中的变量类型是否正确。可以使用`str(src)`来查看每个变量的类型。确保需要计算均值的变量是数值或逻辑型的。
2. 如果数据框`src`中存在非数值或非逻辑值的变量,可以将它们转换为数值或逻辑型。你可以使用函数如`as.numeric()`、`as.logical()`等来进行数据类型转换。
3. 如果你希望在计算均值时忽略非数值或非逻辑值,可以考虑使用`na.rm = TRUE`参数。例如,将`sapply(src, mean)`改为`sapply(src, mean, na.rm = TRUE)`,这样将会忽略缺失值并计算有效值的均值。
通过以上方法修正数据中的非数值或非逻辑值问题,可以避免警告信息的出现,并正确计算描述统计量。
请更改R语言脚本: 要求:groups中每行中若存在0,则每行数据不变,若不存在0,再mid_points <- sapply(groups, function(x) apply(x, 1, median)) new_points <- t(sapply(mid_points, function(x) c(x, x*1.01, x*1.02, x*0.98, x*0.99))) new_points <- round(new_points) 脚本: library(xlsx) data <- read.xlsx("C:/Users/63035/Desktop/shuju/turangweishengwu/taconomy-bac/phylum0302.xlsx",sheetIndex = 1) groups <- split.default(data, rep(1:ncol(data), each=5, length.out=ncol(data))) mid_points <- sapply(groups, function(x) apply(x, 1, median)) new_points <- t(sapply(mid_points, function(x) c(x, x*1.01, x*1.02, x*0.98, x*0.99))) new_points <- round(new_points)
将脚本更改为:如果groups中每行存在,则不进行任何更改;如果不存在,则计算每行的中位数,并将中位数乘以1.01、1.02、.98、.99,生成新的数据点。最后将新的数据点四舍五入。
修改后的脚本如下:
library(xlsx)
data <- read.xlsx("C:/Users/63035/Desktop/shuju/turangweishengwu/taconomy-bac/phylum0302.xlsx",sheetIndex = 1)
groups <- split.default(data, rep(1:ncol(data), each=5, length.out=ncol(data)))
new_points <- t(sapply(groups, function(x) {
if ( %in% x) {
return(x)
} else {
mid_point <- median(x)
c(mid_point, mid_point*1.01, mid_point*1.02, mid_point*.98, mid_point*.99)
}
}))
new_points <- round(new_points)
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)