height<-function(DBH,species){res<-tibble(DBH,species)|>mutate(case_when(species=="A"~2*DBH,species=="B"~3*DBH,species=="C"~4*DBH))return(as.vector(res[,3])[[1]])} 异速生长方程可根据是否有木质密度分为2类,具体的参数需要在文献中寻找。如果下列代码可以成功运行,原来表示胸径的各列会...
centre <- function(x, nw=NULL, k=NULL, deltaT=NULL, trim=0) { 判断x是否有非数值 na.fail(x) 初始化结果 res <- NULL 如果没有输入dpss参数的话,则默认为截尾平均 if(is.null(nw) && is.null(k) ) { res <- x - mean(x, trim=trim) 如果有dpss参数,则使用slepian投影,截尾数舍弃 } ...
sum(sales*quantity) as amt from data_order group by country",drv = 'SQLite')head(data_cate)data_cate<-data_cate[order(data_cate$amt,decreasing = TRUE),] # 对汇总后的结果，根据amt做降序data_cate<-data_cate%>%group_by()%>%mutate(rn=rank(amt)) # 分组排序，SQL里的row_number...
在确定group_by()函数没有问题后,终于在mutate()上发现了端倪。 代码语言:javascript 代码运行次数:0 运行 AI代码解释 mutate ## function (.data, ...) ## { ## stopifnot(is.data.frame(.data) || is.list(.data) || is.environment(.data)) ## cols <- as.list(substitute(list(...))[-...
> starwars_fun<-function(x, ...) { + UseMethod('starwars_fun') + } > > starwars_fun.male<-function(x, ...) { + data<-structure(x, class = 'data.frame') %>% mutate(height = height - 10) + expr(mean(data$height)) + } > > starwars_fun.female<-function(x, ...) { +...
You can look up the function transform # and run the examples of code at the bottom of the # documentation to figure out what it does. # The transform function produces a data frame # so if you use it then save the result to 'yo'! # OR you can figure out another way to create ...
add predicted values from model to data set df_cancer_dx <- df_cancer_dx %>% mutate(...
, -.) %>% mutate(x = x + centre[1], y = y + centre[2]) } create_poly <- function(...) { args <- list(...) SpatialPolygons( lapply( X = seq_along(args), FUN = function(x) { Polygons(list(Polygon(as.data.frame(args[[x]]))), names(args)[x]) } ) ) } echa...
prop_test(),pairwise_prop_test()androw_wise_prop_test(). Performs one-sample and two-samples z-test of proportions. Wrappers around the R base function prop.test() but have the advantage of performing pairwise and row-wise z-test of two proportions, the post-hoc tests following a signi...
f<-function(.)sin(cos(.)) 3.%>%, %$%和%<>%的用法 %>%是最常用的一种前向管道符。 %<>%是表示将变量传入函数,得到的结果返回给原来的变量 iris %<>% na.omit() 等价于 iris<-na.omit(iris) %$%是使用变量的name来表示该变量下name的数值 ...