카페검색 본문
카페글 본문
-
Re: 오늘의 마지막 문제. 와인 데이터(wine2.csv) 를 이용해서 와인의 종류를 분류하는... 2024.07.15해당카페글 미리보기
result <- predict(model, test_data[ , -1]) sum(test_result==test_data[ , 1])/34*100 # 94.11765 y <- 1 jumpby <- 1 options(scipen=999) for ( i in 1:30 ) { model<-C5.0(train_data[ ,-1],train_data[ ,1], trials=y) test_result2 <- predict...
-
Re: (오늘의 마지막 문제) 미국 대학교 입학점수 데이터를 가지고 단순회귀 곡선을 ... 2024.07.16해당카페글 미리보기
pch=21, col='blue', bg='blue', cex=1) #3. 단순 회귀 분석하기 model <- lm(acceptance ~ academic, data=sports) options(scipen=999) summary(model) > summary(model) Coefficients: Estimate Std. Error t value Pr(>|t|) (Intercept) 26.046643...
-
Re: 오늘의 마지막 문제. 와인 데이터(wine2.csv) 를 이용해서 와인의 종류를 분류하는... 2024.07.15해당카페글 미리보기
100 sum(test_result == test_data[ , 1]) / length(test_data[ , 1]) * 100 y <- 1 # 초기값을 1로 설정 jumpby <- 1 options(scipen=999) for (i in 1:10) { wine_model2 <- C5.0(train_data[ ,-1], train_data[ , 1], trials=y) test_result2...
-
Re: 오늘의 마지막 문제. 와인 데이터(wine2.csv) 를 이용해서 와인의 종류를 분류하는... 2024.07.15해당카페글 미리보기
161 * 100 #테스트 정확도 sum(test_result == test_data[, 1]) / 16 * 100 #이다음 for문으로 생성 y <- 1 jumpby <- 1 options(scipen=999) for ( i in 1:20 ) { model<-C5.0(train_data[ ,-1], train_data[ ,1], trials=y) test_result2 <- predict...
-
Re: 오늘의 마지막 문제. 와인 데이터(wine2.csv) 를 이용해서 와인의 종류를 분류하는... 2024.07.15해당카페글 미리보기
99.3% #테스트 정확도 sum( test_result == test_data[ , 1] ) / 34 * 100 # 94.12% #8. 모델 개선 y <- 1 jumpby <-1 options(scipen=999) for ( i in 1:20 ) { model2 <- C5.0( train_data[ , -1], train_data[ , 1], trials=y ) test_result2...
-
Re: (오늘의 마지막 문제) 미국 대학교 입학점수 데이터를 가지고 단순회귀 곡선을 ... 2024.07.16해당카페글 미리보기
model <- lm(acceptance ~ academic, data=sports) abline(model, col='red') title('학과점수가 승인점수에 미치는 영향') options(scipen=999) summary(model) 회귀식: acceptance = 26.0466 + 0.1761 * academic p-value< 0.00000000000000022이므로...
-
Re: (오늘의 마지막 문제) 미국 대학교 입학점수 데이터를 가지고 단순회귀 곡선을 ... 2024.07.16해당카페글 미리보기
academic, data = sports) sports_model # 시각화 하기 abline(sports_model, col = 'orange') # 단순회귀 분석하기 options(scipen = 999) # 소수에 e 표기법 쓰지 않고 출력하기 summary(sports_model) ======= 회귀식 세우기 y가 승인점수 이고, x가...
-
0907; last exam day!! ⚡🌑 #18 2024.07.09해당카페글 미리보기
of life in a random mall food court..?) and made coffee in her water bottle since there were no lactose-free options left for me :( it looks like... swamp water LMAO the struggle of being lactose intolerant smh... we also got some sour...
-
Re: 오늘의 마지막 문제. 와인 데이터(wine2.csv) 를 이용해서 와인의 종류를 분류하는... 2024.07.15해당카페글 미리보기
143 * 100 # 99% sum(test_result == test_data [ , 1] ) / 34 * 100 # 94% # 7. 모델 성능 개선 y <- 1 jumpby <- 1 options(scipen=999) # 루프문 확인 for ( i in 1:10 ) { credit_model <- C5.0(train_data[ ,-17],train_data[ ,17], trials=y) test...
-
Re: 오늘의 마지막 문제. 와인 데이터(wine2.csv) 를 이용해서 와인의 종류를 분류하는... 2024.07.15해당카페글 미리보기
result == test_data[ ,1])/length(test_data[ ,1]) * 100 # 92% # 6. 모델 성능 개선하기 y <- 0 jumpby <-1 set.seed(1) options(scipen=999) for ( i in 1:20 ) { y <- y + jumpby model<-C5.0(train_data[ ,-1],train_data[ ,1], trials=y) test...