我有一个相当大的数据集，我试图在其中创建一个函数，将一个县的名称更改为它对应的FIPS代码。

county2FIPS <- function(county){
    county <- as.character(county)
    county(
"11111" = county == "Davis",
"22222" = county == "Jefferson",
"33333" = county == "Washington")
    }

但是，每当我试图在我的数据集上使用函数（下面的示例）时，我会得到一个错误，说R“找不到函数County”。
data$FIPS <- county2FIPS(data$county)
我敢肯定，我已经错误地分类的东西，只是不能看到它的地方，但任何帮助将不胜感激。
当然，预期的结果是将所有的县值更改为相应的5位FIPS代码。