有人可以帮我修改下面的功能,检查一个数字是否是数字？
# handy function that checks if something is numeric
check.numeric <- function(N){
!length(grep("[^[:digit:]]",as.character(N)))
}
check.numeric(3243)
#TRUE
check.numeric("sdds")
#FALSE
check.numeric(3.14)
#FALSE
我希望check.numeric()在它是像3.14这样的小数时返回TRUE.
解决方法
听起来你想要一个像这样的函数：
f <- function(x) is.numeric(x) & !is.na(x)
