R数据分析——定义函数

function()

pow <- function(x,y){
  result <- x^y
  print(paste(x,"^",y,"=",result))
}
pow(2,3)

运行结果

num <- 1:10
my.fun <- function(x){
  x+1
}
#调用函数
sapply(num,my.fun)
sapply(1:3, function(x) x^2)
lapply(1:3, function(x) x^2)

运行结果

练习：对序列1到10,求出所有偶数的平方,并输出表达式,如2^2=4

num <- 1:10
for(i in num){
  if(i%%2==0){
    pow(i,i)}
}

运行结果