sách gpt4 ai đã đi

r - 使用用户定义的函数在 r 中应用

In lại 作者:行者123 更新时间:2023-12-04 12:12:26 25 4
mua khóa gpt4 Nike

我的代码如下:

data("USArrests")

AssignLevel <- function(p,quartiles)
{
if (p < quartiles[1])
rlevel <-"LOW"
else if (p < quartiles[2])
rlevel <-"MODERATE"
else if (p < quartiles[3])
rlevel <-"HIGH"
else level <-"VERY HIGH"
return (rlevel)
}
k<-USArrests$UrbanPop
k

q<- quantile(USArrests$UrbanPop, c(.25,.5,.75))

newCol <- sapply(USArrests$UrbanPop,AssignLevel(k,q))

我正在尝试将每个州的城市人口值更改为相应的四分位数之一。它在我运行 AssignLevel(k,q) 时有效,但在我运行 sapply 时无效。

1 Câu trả lời

我同意cut 解决方案更好。为了好玩,以下是解决您当前问题的方法:

data("USArrests")

AssignLevel <- function(p,quartiles) {
if (p < quartiles[[1]]){
rlevel <- "LOW"
} else if(p < quartiles[[2]]) {
rlevel <- "MODERATE"
} else if(p < quartiles[[3]]) {
rlevel <- "HIGH"
} khác {
rlevel <- "VERY HIGH"
}
return (rlevel)
}
k <- USArrests$UrbanPop

q <- quantile(k, c(.25,.5,.75))


newCol <- sapply(k,AssignLevel,q)

关于r - 使用用户定义的函数在 r 中应用,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/39600209/

25 4 0
行者123
Hồ sơ cá nhân

Tôi là một lập trình viên xuất sắc, rất giỏi!

Nhận phiếu giảm giá Didi Taxi miễn phí
Mã giảm giá Didi Taxi
Giấy chứng nhận ICP Bắc Kinh số 000000
Hợp tác quảng cáo: 1813099741@qq.com 6ren.com