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 !!!

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

'프로그래밍, 통계학 > R(데이터마이닝)' 카테고리의 다른 글

14.4.15  (0) 2014.04.15
4.10 데이터마이닝  (0) 2014.04.10
14.4.1 데이터마이닝  (0) 2014.04.01
14.3..27 데이터마이닝  (0) 2014.03.27
14.3.25 R 퀴즈  (0) 2014.03.25
블로그 이미지

테시리

,