데이터마이닝 팀과제설명, 로지스틱회귀

 

201301.ch2.r.mining.eng.hwp

 

201301.ch3.r.mining.eng.hwp

 

 

 

201401.mining.project팀과제설명.pdf

 

Data-Mining 1

Team Project, Data-mining, 2014

Schedule
{ Send me your topic(due to 5/24)
{ First office hour(5/27 for team 14 and 5/29 team 58)
{ Second office hour(6/10 for team 14 and 6/12 team 58)
{ Presentation(15 min, 6/17 for team 14 and 6/19 team 58)
{ Submit a report(A4 size, due to 6/21)

Data
{ Any data set will be o.k., but you may specify the source!  : 출처!!!
{ Do not try any fake or simulated data set.

Analysis
{ Try 3 methods at least for the same purpose. : 3가지방법 모두 활용해서 설명가능한주제
{ Feel free to try any other methods not considered in the class.

Grading
{ presentation(50%) + report(50%)  : 리포트는 A4사이즈 , 코드 넣지 말 것. R 말고 다른 패키지 사용가능, 형식 무관

Contents must be included in the report
{ Team introduction : 팀원 역할
{ Data description   : 데이터 설명 + 출처반드시
{ Analysis purpose
{ Analysis methods  : 수식을 활용해서 설명
{ Results
{ Discussion

 

 

 

5. 로지스틱 회귀

 

> x<-seq(-5,5,length.out=10000)
> y<-exp(1.2*x)/(1+exp(1.2*x))*1/(1+exp(0.8*x))*exp(0.9*x)/(1+exp(0.9*x))
> plot(y)
> max(y)
[1] 0.1694223

 

 

exp(1.2*x)/(1+exp(1.2*x))*1/(1+exp(0.8*x))*exp(0.9*x)/(1+exp(0.9*x))

 

x<-seq(-5,5,l=1000)
 myfun<-function(x){
exp(1.2*x)/(1+exp(1.2*x))*1/(1+exp(0.8*x))*exp(0.9*x)/(1+exp(0.9*x))
 }

myfun(1)

 

 

 

x<-seq(-5,5,l=1000)
 myfun<-function(x){
exp(1.2*x)/(1+exp(1.2*x))*1/(1+exp(0.8*x))*exp(0.9*x)/(1+exp(0.9*x))
 }

myfun(1)

y<-exp(1.2*x)/(1+exp(1.2*x))*1/(1+exp(0.8*x))*exp(0.9*x)/(1+exp(0.9*x))

x[which.max(y)]

[1] 0.975976 =====>>> 베타1 !!!