카페검색 본문
카페글 본문
-
Re: 문제306.( 오늘의 마지막 문제 ) 와인의 품질을 k-means 로 분류하는데 k 값을 3개로... 2022.08.24해당카페글 미리보기
14 nrow(wine) # 178 #2. 필요한 컬럼 선택(환자번호와 정답 제외) wine2 <- wine[ ,2:14] wine2 # ★ 데이터 정규화★ normalize<- function(x){ return ( (x-min(x))/(max(x)-min(x))) } wine_n <- as.data.frame(lapply(wine2, normalize)) head(wine_n...
-
Re: 문제306.( 오늘의 마지막 문제 ) 와인의 품질을 k-means 로 분류하는데 k 값을 3개로... 2022.08.24해당카페글 미리보기
wine2 <- wine[,2:14] # 1번 환자번호와 2번 정답을 제외한 나머지 데이터로 구성 wine2 #★ 데이터를 정규화 합니다. normalize <- function(x) { return ((x-min(x))/(max(x) - min(x))) } wine_n <- as.data.frame(lapply(wine2, normalize)) #3. 비...
-
Re: 문제306.( 오늘의 마지막 문제 ) 와인의 품질을 k-means 로 분류하는데 k 값을 3개로... 2022.08.24해당카페글 미리보기
컬럼 선택(환자번호와 정답 제외), 정답없이 기계가 잘 분류하나 확인 wine2<-wine[ , 2:14] wine2 #*데이터 정규화* normalize<-function(x) { return((x-min(x))/ (max(x)-min(x))) } wine_n<-as.data.frame(lapply(wine2, normalize) ) #3.비지도 학습...
-
Re: 문제306.( 오늘의 마지막 문제 ) 와인의 품질을 k-means 로 분류하는데 k 값을 3개로... 2022.08.24해당카페글 미리보기
로드 wine<-read.csv("c:\\data\\wine.csv") View(wine) #2. 필요한 컬럼 선택 wine2<-wine[,-1] View(wine2) #정규화 normalize <- function(x) { return ( (x-min(x) ) / (max(x) - min(x) ) ) } wine_n <- as.data.frame(lapply( wine2, normalize...
-
===== Weekly ; AI Programming (Fall, 2022) == 2022.08.29해당카페글 미리보기
얼마일까? ; LR-06-SSE-min sse-Soln.py * 이렇게하여, 최종적으로 slope가 결정되면, Inquiry를 어떻게 처리하는가? > normalize의 역순을 거쳐야 함. ; LR-07-Inquiry-Soln.py > Lec / PPT *** 다항(polynomial)회귀를 실험해 볼 수 있는 사이트; 구글...
-
Re: 문제306.( 오늘의 마지막 문제 ) 와인의 품질을 k-means 로 분류하는데 k 값을 3개로... 2022.08.24해당카페글 미리보기
wine<-read.csv("c:\\data\\wine.csv") head(wine) ncol(wine) wine2<-wine[ ,2:14] wine2 normalize <- function(x) { return ( (x-min(x) ) / (max(x) - min(x) ) ) } wine_n <- as.data.frame( lapply( wine2, normalize) ) km<-kmeans(wine_n,3) km...
-
Re: 문제306.( 오늘의 마지막 문제 ) 와인의 품질을 k-means 로 분류하는데 k 값을 3개로... 2022.08.24해당카페글 미리보기
wine <- read.csv('c:\\sn_python\\data\\wine.csv') wine2 <- wine[ , 2:14 ] normalize <- function(x) { return ((x-min(x))/(max(x)-min(x))) } wine_n <- as.data.frame(lapply(wine2, normalize)) km <- kmeans(wine_n, 3) cbind(wine$Type,km...
-
Re: 문제306.( 오늘의 마지막 문제 ) 와인의 품질을 k-means 로 분류하는데 k 값을 3개로... 2022.08.24해당카페글 미리보기
wine <- read.csv("d:\\data\\wine.csv") head(wine) nrow(wine) ncol(wine) wine1<-wine[,2:14] head(wine1) normalize <- function(x) { return ( (x-min(x) ) / (max(x) - min(x) ) ) } wine_no<-as.data.frame(lapply(wine1,normalize)) head(wine_no...
-
Re: 문제306.( 오늘의 마지막 문제 ) 와인의 품질을 k-means 로 분류하는데 k 값을 3개로... 2022.08.24해당카페글 미리보기
wine <-read.csv('c:/data/wine.csv') wine2 <- wine[, 2:14] normalize <- function(x){ return((x-min(x)) / (max(x)-min(x))) } wine_n <- as.data.frame(lapply(wine2, normalize)) km <- kmeans(wine_n, 3) cbind(wine$Type, km$cluster) fviz...
-
Re: 문제306.( 오늘의 마지막 문제 ) 와인의 품질을 k-means 로 분류하는데 k 값을 3개로... 2022.08.24해당카페글 미리보기
wine<-read.csv('../downloads/wine.csv') wine_t<-wine[ , -1] normalize <- function(x) { return ((x-min(x))/(max(x)-min(x)) } wine_n <- as.data.frame(lapply(wine_t, normalize) ) km<-kmeans(wine_n, 3) fviz_cluster(km, data=wine_n, stand=F...