getDouble <- function(num=1){ result <- num * 2 #函数主体 return(result) #返回参数用return() } myResult <- getDouble(num=20) #调用函数,myResult应为40 1. 2. 3. 4. 5. 6. 7. 8. return()和print()的区别就在与print()会在Console显示输出而return()不会。 data.frame 数据框 比...
df%>%mutate(x=str_replace_all(x,"\\(|\\)",""))
F_to_K <- function(temp_F){ temp_C <- (temp_F - 32) * 5 / 9 temp_K <- temp_C + 273.15 return(temp_K) } 【例3】定义一个function,用于重复计算导入data frame每一行的平均值。 首先定义function: analyze <- function(df){ df_average <- apply(df, 1, mean) return(df_average)...
当到达return()语句或到达函数主体中的最终表达式时,控制权将返回给调用函数。 如果没有显式数据返回到调用函数,则将返回最后一个表达式生成的输出。 让我们看一个简单的R函数的例子。 我们想发现我们经常在编写代码来确定通过课程的学生人数,因此我们决定定义一个函数来简化我们的代码。 该函数是使用function()表达式...
Function body:函数体,包含一组语句,用于定义函数的作用,或者实现某种功能 return:评估/计算的函数体中的最后一个表达式 ## ## 示例1无参函数 ## ## 示例2 带参数的函数 vector = 1:100 ## ## 示例3带默认值参数的函数 二、内置函数。 可以直接使用!
statistics <- function(x) { result_df <- data.frame(mean = mean(x), median = median(x), sd = sd(x)) return(result_df) } # 调用函数并获取结果 output_df <- statistics(c(1, 2, 3, 4, 5)) print(output_df$mean) # 打印平均值 print(output_df$median) # 打印中位数 print(outp...
Max=max(x,na.rm=TRUE);Mean=mean(x,na.rm=TRUE);Var=var(x,na.rm=TRUE);Sd=sd(x,na.rm=TRUE);Range=abs(diff(range(x)));#返回结果return(data.frame(N=N,Min=Min,Q1=Q1,Median=Median,Q3=Q3,Max=Max,Mean=Mean,Var=Var,Sd=Sd,Range=Range))}#可对data数据集批量使用sapply(data,my_...
myDivide <-function(d, a){ if(a =='warning') { return_value <-'myDivide warning result' warning("myDivide warning message") }elseif(a =='error') { return_value <-'myDivide error result' stop("myDivide error message") }else{ ...
fun.test<- function(a, b,method ="add"){ if(method == "add") { ## 如果if或者for/while; res<- a + b ## 等后面的语句只有一行,则无需使用花括号。 } if(method == "subtract"){ res<- a - b } return(res) ## 返回值
StoredProcedure for creating the "cleandata" table. # train 2 takes a data frame with clean data and outputs a model # as well as the data on the basis of which the model was built train2 <- function(in_df) { in_df[,"DayOfWeek"] <- factor(in_df[,"DayOfWeek"], levels=c("...