代碼記錄

---

數(shù)據(jù)預(yù)處理+主成分+熵值法 (R語言)

library(VIM) library(mice) library(readr) library(psych) library(fpc) library(lattice) library(MASS)#### 定義函數(shù) #####統(tǒng)計(jì)行/列 缺失值函數(shù) countNaN <- function(myline) {return(sum(is.na(myline))) }#定位函數(shù) #dataF只能傳遞矩陣或者數(shù)據(jù)框 myPosition <- function(dataF, flag = T) {posmtr <- matrix(0, ncol = 2)colnames(posmtr) <- c("rowNum", "colNum")numberCol <- dim(dataF)[2]numberRow <- dim(dataF)[1]for (item in c(1:numberCol)) {targetIndex <- which(dataF[, item])lenTar <- length(targetIndex)tempMatrix <- data.frame(rowNum = targetIndex, colNum = rep(item, lenTar))posmtr <- rbind(posmtr, tempMatrix)}posmtr <- posmtr[-1, ]return(posmtr) }#回歸函數(shù)myregression <- function(vectorX, vectorY, newX) {print(vectorX)print(vectorY)lmtemp <- lm(vectorY ~ vectorX)print(lmtemp$coef)

總結(jié)

以上是生活随笔為你收集整理的今日代码(20210225)--数据处理的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。