編寫一個函數(shù)纵隔,只有一個輸入變量(變量可以看作是矩陣)糊识,將刪除了NA值的行和列的子矩陣輸出。
delNA <- function(x){
if(!is.matrix(x))
return("輸入的參數(shù)不是矩陣")
nr = match(NA,x) %% nrow(x)
nc = match(NA,x) %% ncol(x)
x[-nr,-nc]
}
a = matrix(c(1,2,3,4,NA,6,7,8,9),3,3)
delNA(a)
=============================
delNA<-function(x){
index <- which(is.na(x),arr.ind = T)
x[-index[,1],-index[,2]]
}
=============================
delNA <- function(x){
x[complete.cases(x),complete.cases(x)]
}
=============================