如何用三个参数创建一个函数

我正在尝试创建一个函数，该函数需要三个参数才能完成作业，并尝试过几次，但没有运气！非常感谢一些建议或帮助:)如何用三个参数创建一个函数

我已经创建了以下内容：

##### 1) 
> raceIDs 
[1] "GER" "SUI" "NZ2" "US1" "US2" "POR" "FRA" "AUS" "NZ1" "SWE" 

##### 2) 
#For each "raceIDs", there is a csv file which I have made a loop to read and created a list of data frames (assigned to the symbol "boatList") 
#For example, if I select "NZ1" the output is: 
> head(boatList[[9]]) #Only selected the first six lines as there is more than 30000 rows 
    Boat  Date Secs LocalTime SOG 
1 NZ1 01:09:2013 38150.0 10:35:49.997 22.17 
2 NZ1 01:09:2013 38150.2 10:35:50.197 22.19 
3 NZ1 01:09:2013 38150.4 10:35:50.397 22.02 
4 NZ1 01:09:2013 38150.6 10:35:50.597 21.90 
5 NZ1 01:09:2013 38150.8 10:35:50.797 21.84 
6 NZ1 01:09:2013 38151.0 10:35:50.997 21.95 

##### 3) 
# A matrix showing the race times for each raceIDs 
> raceTimes 
    start  finish  
GER "11:10:02" "11:35:05" 
SUI "11:10:02" "11:35:22" 
NZ2 "11:10:02" "11:34:12" 
US1 "11:10:01" "11:33:29" 
US2 "11:10:01" "11:36:05" 
POR "11:10:02" "11:34:31" 
FRA "11:10:02" "11:34:45" 
AUS "11:10:03" "11:36:48" 
NZ1 "11:10:01" "11:35:16" 
SWE "11:10:03" "11:35:08"

我需要做的是我需要计算平均速度船（SOG）“，而这是赛车“（在开始和结束时间之间）。

所以基本上，我需要的功能与此类似：

> meanRaceSpeed("NZ1", boatList, raceTimes) 
[1] 18.32 

> meanRaceSpeed("US1", boatList, raceTimes) 
[1] 17.23

这是我的家庭作业的最后一题的一个，我只是完全停留在所有:(

我真的不知道从哪里开始。

任何人都可以请能够给我一些建议或支持，请？

来源

2013-10-24 Sam

家庭作业，因此只提示：您可以使用该“NZ1”参数来提取您的矩阵的子集：'newmat < - boatlist [boatlist [1] ==“NZ1”，]'并继续与在'newmat'中的时间列[ –

我不认为你需要三个参数，因为你的三个参数是相互关联的，即当指定船时，它在boatList中的位置也可以被指定，并且它的raceTimes也可以被指定。

我没有测试下面的功能，因为这是一个有点痛苦的模拟随机数据，但我相信它可能会帮助：

meanRaceSpeed <- function(x) #`x` is the boat's name 
{ 
    start_time <- raceTimes$start[rownames(raceTimes) == x] 
    finish_time <- raceTimes$finish[rownames(raceTimes) == x] 

    #which `LocalTime` is the first with `start_time` 
    start_LocalTime <- min(grep(start_time, boatList[[x]]$LocalTime)) 
    #which `LocalTime` is the last with `finish _time` 
    #(if you want the first `finish_time` change `max` with `min`) 
    finish_LocalTime <- max(grep(finish_time, boatList[[x]]$LocalTime)) 

    #which `SOG`s contain all the `LocalTimes` between start and finish 
    #take their `mean` 
    mean(boatList[[x]]$SOG[start_LocalTime : finish_LocalTime]) 
} 

#for all boats, something like: 
sapply(raceIDs, meanRaceSpeed)

对不起，如果我误解了你的问题，但。

来源

2013-10-24 11:11:51

]对不起 - 我快速浏览了代码。 –

由于这是一个家庭作业阙这可能不会为任何人直接回答它。

有关功能的更多信息，请参阅Quick-R/User-defined functions。

与该函数什么也不做，但返回他们串联三个参数的函数的一个例子：

myfunc <- function(first, second, third) { 
return(cat(first, second, third)) 
}

您可以调用为myfunc("foo","bar","baz")，并得到结果“富酒吧巴兹”。

来源

2013-10-24 10:53:46

如何用三个参数创建一个函数

回答

相关问题