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 |