2021-06-30(R 데이터 분석_6(SVM)& 태양열예측 마지막)

R

R에서의 SVM 실습 내용입니다! 자세한 그래프는 생략했고 내용물만 업로드 합니다

library(caret)

rawdata <- read.csv(file='wine.csv', header=TRUE)
rawdata$Class <- as.factor(rawdata$Class) #범주형 변환
str(rawdata)

analdata <- rawdata
set.seed(2021)
datatotal <- sort(sample(nrow(analdata),nrow(analdata)*.7))
train <- rawdata[datatoal,]
test <- rawdata[-datatoal,]
str(train)
str(test)

train_x <- train[,1:13]
train_y <- train[,14]

test_x <- test[,1:13]
test_y <- test[,14]

#선형모델
ctrl <- trainControl(method='repeatedcv',repeats=5)
svm_linear <- train(Class~.,
               data=train,
               method='svmLinear', #선형 svm
               trControl=ctrl,
               preProcess=c('center','scale'),
               metric='Accuracy')
svm_linear

#예측
pred_Test_linear <- predict(svm_linear, newdata=test)
confusionMatrix(pred_Test_linear, test$Class)

#중요도
importance_linear <- varImp(svm_linear, scale=FALSE)
plot(importance_linear)

#비선형모델
ctrl <- trainControl(method='repeatedcv',repeats=5)
svm_ploy <- train(Class~.,
                    data=train,
                    method='svmPoly', #선형 svm
                    trControl=ctrl,
                    preProcess=c('center','scale'),
                    metric='Accuracy')
svm_ploy
#예측
pred_Test_ploy <- predict(svm_ploy, newdata=test)
confusionMatrix(pred_Test_ploy, test$Class)

#중요도
importance_linear <- varImp(svm_ploy, scale=FALSE)
plot(importance_linear)

 

태양열 프로젝트

지난 4월부터 진행했던 프로젝트를 끝을 냈습니다. 엊그제 블로그에 정리하면서 업로드는 해놨습니다

2021.06.29 - [project] - 태양열 에너지 예측 프로젝트 (4)_dacon

태양열 에너지 예측 프로젝트 (4)_dacon

 

사실 더 진행 할수도 있었습니다. lgb 그리드 서치라든가 다른 모델을 사용한다던가 등 여러 시도를 시간 들여서 해볼순 있었지만 제가 계획해 놨던 공부들이 있어서 기간 맞출려면 슬슬 정리하는게 좋을 것 같단 생각이 들었습니다. 무엇보다.. 제 실수로 인해 점수 계산을 할수 없는 상태라서 의욕이 상당히 많이 떨어졌습니다; 첫 대회 참가라서 제대로 결과까지 받아 보고 싶었는데 말이죠  첫 술에 배부를순 없으니까 이 실수를 발판삼아 다음엔 제대로 도전해 볼 생각입니다.

 

번외

사실 제가 더위에 상당히 약한 편 인데요. 

요즘 날이 너무 더워서 공부에 집중이 잘 되지 않습니다 ;; 

중요한 시기인데 말이죠 

집이 원룸이고 통풍이 안되는 구조라 야외보다 더 덥습니다 ㅎㅎ;;

 

그외에도 개인적인 일이 겹쳐서 

집중을 찾아 볼수가 없습니다ㅠ 

 

오늘은 계획했던 컴퓨터 비젼 중급 강의를 듣기 위해서 결제를 했는데요

R part는 원래 6월달 안에 끝내야 하는데 제가 집중을 찾아 볼수 없는 상태라서 어물쩡 거리는 바람에

7월에도 R을 해야 할것같습니다 내일도 더울 생각을 하니....