DEA (자료포락분석)의 Super SBM에 대해

[안지현]

제가 지금 하고 있는 분석은

Super SBM을 이용한 광고비 효율성 분석을 위한 분석틀입니다.

nonparaeff라는 패키지를 인스톨해서 사용하게 됩니다.

re <- list()
for(i in 1: nrow(dea99.dat)){
re[[i]] <-
dea(base = dea99.dat[i,], frontier=dea99.dat[-i,],
noutput =1, rts=2, orientation=1)

'dea' 분석은 결과가 제대로 도출이 되는데

re <- list()
for(i in 1: nrow(dea99.dat)){
re[[i]] <-
sbm.vrs(base=dea99.dat, frontier=NULL, noutput=1)
}

'sbm 모형' 분석을 하게 되면

효율성값 (efficiency)이 1이상인 값이 도출되어야 하는데

최대값이 1이하로 나타나게 됩니다.

제가 궁금한 것은 위 명령문에서

어떤 점이 sbm 과 부딪히며

해결 방법이 무엇인가 궁금해서요

이 문제를 해결하려면, 패키지를 짠 프로그램을 볼 줄 알아야 할 것 같은데

제가 R에 대해서 거의 아는 바가 없어서 어떻해야 할지 잘 모르겠습니다.

조언 부탁드려요

분석을 위한 데이터 유첨합니다.

ad99.txt

[안지현]

앗...위에서 SBM은 데이터에 0이 들어가면 에러가 나서 1로 대체해서 분석했습니다.
즉 데이터의 0을 1로 변환해서 분석했습니다.

[안재형]

처음 보는 모형이어서 저도 모르겠네요.
> ?sbm.vrs 를 하면 그 함수에 대한 설명이 나오는데 다행히 저자가 Dong-hyun Oh인데 한국분인듯합니다. 거기 메일주소도 있으니 한번 메일 보내보세요.

[안지현]

네, 감사합니다^^