안녕하세요~~ 직각머리스님입니다.
제가 글을 쓰는 이유는 이번에 콰티님의 나눔에 대해 도대체 어떻게 추첨을 할것이냐!!에 대해 궁금해하실까봐 뽑는 과정을 설명드리러 왔습니다~
저번1차 나눔 무대인사 때 거리가 너무 멀어서 못 오시는 지방분들이 많앗더라구요ㅠㅠ
그래서 이번 2차나눔은 멀리 사시는 지방분들을 위해 거리에 따라 가중치를 두는 방식으로 추첨하기로 결정햇습니다!
무슨 방식인지 아직 잘 모르시겟죠?
예를 들어서 시청으로부터 거리가 1km인 사람, 3km인 사람, 6km인 사람이 있을 때 한분을 뽑는다면 거리가 1키로인 사람이 뽑힐 확률이 1/10 거리가 3키로인 사람이 뽑힐 확률이 3/10 거리가 6키로인 사람이 뽑힐 확률이 6/10가 되도록 샘플링을 한다는 소리입니다!!
저희가 사용할 프로그램은 통계 프로그램 R이라는 프로그램입니다. 코드를 입력해서 뽑을겁니다~
그래서 대략 코드를 짜봣는데 혹시 수정할 부분잇으면 댓글남겨주세요!!
samples <- function(Vec, Size, Prob){
if(Size==1) print(sample(Vec, size=Size, prob=Prob))
else{
Except <- sample(Vec, size=1, prob=Prob)
print(Except)
Vec1 <- Vec[which(Vec != Except)]
Prob1 <- Prob[which(Vec != Except)]/sum(Prob[which(Vec != Except)])
Vec <- Vec1; Prob <- Prob1
return(samples(Vec,Size-1, Prob))
}
}
vec에는 나눔참여해주시는 분들의 거리값이 벡터로 들어가고요~
size에는 당첨인원!!
prob는 거리값을 아까 말햇듯이 멀면 가중치를 둬서!!
prob=xi/∑xi로 할 예정이랍니다~
혹시 수정할거잇으면 댓글좀 남겨주세요......
또 궁금한 잇으셔도 댓글 남겨주세요!!
신청은 밑에주소로 가서 해주세요!!
http://cafe.daum.net/parkboyoungfd/dQzw/19
역시... .. 남달라여 ㅋㅋ 저번에 말했던개 이거였군요
쉿...그부분지우시오
@직각머리스님 ㅋㅋㅋ 넹
R 까지 쓰셔서 하시다니.. ㅋㅋ
ㅋㅋㅋㄱ저도 여기서 R을 쓰게 될줄은....
통계학과신갘ㅋㅋㅋr이라니ㅋㅋㅋ괜히반갑네요ㅋㅋㅋㅋㅋ
쌔스는 잘안쓰시나 r도배우고싶다
통계학과신가봐요ㅋㅋㄱㄱ전 아니랍니다ㅎㅎ
ㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋㅋ저게 뭐얔ㅋㅋㅋㅋㅋ
어찌됫든 당첨됫으면~~
하... 나름 전북 멀다 생각했는데 머신분들 많으신듯ㅋㅋ
멀수록 확률이 높아지는것뿐이죠 ㅋㅋ
행운을빕니다 !
수고하셨습니다~~~ 감사해요
나눔 성공 화이팅!!
모르겠으니까 그냥 당첨됐으면 좋겠네요
댓글에뭐적으면되눈고예요?
콰티님 나눔글가셔서 글 읽어보시고 양식대로 쓰시면 됩니다! 밑에 주소로!
와 능력자 직각머리스님 대단합니다!!
크...이과 대단합니다
아무것도 모르는 문돌이는 홀로..
재미있네요ㅋㅋㅋㅋ
아하! 이렇게 추첨하는거군요!(아는척)
주르륵
뭔지도 모르겠네요..ㅋㅋ
지방러들을 챙겨주셔서 감사합니다
지방사는데 당첨됬으면~
이거 착불이에요?
R 이라니 ㅋㅋ 반갑네요~