에스프리터 [블로그]

r (54)

R - 시계열 예제

코딩/데이터 분석_AI 에스프리터 2018.05.24 11:24

오늘 예제는 시계열 분석에 관한 예제입니다. 시계열 데이터를 생성하여 차후 추세가 어떻게 될지 예측합니다. 코드 # 시계열 # 시계열 데이터 생성으로 미래 예측 연습 install.packages("forecast") library(forecast) # auto.arima() 함수 : 시계열 모형 추정 함수-예측 알고리즘 # forecast() 함수 : 미래 수치 예측 input <- c(5200,5100,5400,5300..

R - 연관 분석 예제

코딩/데이터 분석_AI 에스프리터 2018.05.21 16:10

오늘 예제는 연관 분석에 관한 예제입니다. 예제로 어떤 사람이 어떤 과자 상품을 구매하였는지를 놓고 분석합니다. 코드 #연관분석 : 연관된 규칙을 찾는 무방향성 데이터 마이닝 기법 #연관 규칙은 특정 사건이 발생했을 때 함께 (빈번히)발생하는 또 다른 사건의 규칙이다. #컬럼명은 영어로 써야 알이 이해 한다. install.packages("arules") library(arules) cust <- read.csv("tes..

R - neuralnet 예제

코딩/데이터 분석_AI 에스프리터 2018.05.18 16:11

오늘 예제는 iris 데이터를 활용하여 neuralnet을 사용해보는 예제입니다. 코드 # neuralnet : iris dataset : 입력값을 정규화하지 않고 결과 출력 library(neuralnet) iris set.seed(1) train<-sample(1:nrow(iris),nrow(iris)*0.7) test <- seq(nrow(iris))[-train] iristrain <-iris[train, ..

R - diamonds dataset을 활용한 k-means 분석 예제

코딩/데이터 분석_AI 에스프리터 2018.05.17 18:26

이번에는 다이아몬즈 데이터셋으로 계층적 군집 현황을 파악 후 k-means 알고리즘을 적용해 보는 예제입니다. 코드 # diamonds dataset으로 계층적 군집분석 후 군집수를 파악 후 k-means 알고리즘에 적용해 군집파악 library(ggplot2) head(diamonds) dim(diamonds) #53940행 10열 짜리 데이터 (양이많음) #sample t<-sample(1:nrow(diamonds),100..

R - 군집분석(hclust 활용) 예제

코딩/데이터 분석_AI 에스프리터 2018.05.16 00:46

다음은 hclust 함수를 사용하여 학생들의 신체검사 결과를 군집분석하는 예제입니다. 코드 #학생들의 신체검사 결과를 군집분석 body<-read.csv("testdata/bodycheck.csv",header = TRUE) body idist <-dist(body[,-1]) idist #계층적 군집분석 hc <-hclust(idist) hc #Cluster method   : comp..

R - 군집분석 예제

코딩/데이터 분석_AI 에스프리터 2018.05.14 18:06

다음은 R을 사용하여 군집분석을 활용하는 예제입니다. 군집분석은 서로 거리가 가까운 데이터들끼리 묶어서 군집화하는 기법입니다. 코드 #군집분석 중 계층적 군집분석 x<-c(1,2,2,4,5) y<-c(1,1,4,3,4) xy<-data.frame(x,y) plot(xy,pch=20, xlab="x값",ylab="y값",xlim=c(0,6),ylim=c(0,6),main='응집형 군집화') #abbreviate(x) ..

R - neuralnet 함수를 사용하여 역전파 알고리즘 사용 예제

코딩/데이터 분석_AI 에스프리터 2018.05.13 15:55

이번 예제는 인공신경망. 즉 neuralnet 함수를 이용해서 역전파 알고리즘을 사용하는 예제입니다. 코드 # neuralnet 함수를 이용해 역전파 알고리즘을 사용 가능 install.packages("neuralnet") library("neuralnet") set.seed(123) idx <- sample(1:nrow(iris),0.7 * nrow(iris)) # 7:3으로 나눔 train_iris <- iris[..

R - ANN 알고리즘 예제#2

코딩/데이터 분석_AI 에스프리터 2018.05.13 15:54

이번 예제는 ANN 알고리즘을 사용해서 iris 데이터를 분류하는 작업을 합니다. 코드 #ANN으로 iris 분류 작업 idx <- sample(1:nrow(iris),0.7*nrow(iris)) train<-iris[idx, ] test<-iris[-idx,] library(nnet) model_iris1 = nnet(Species ~., train, size=1) model_iris1 model_iris3 =nnet..

Copyright © 에스프리터 All Rights Reserved
Designed by JB FACTORY