NULL

data=read.csv('F:/SRC/GPSM.csv',stringsAsFactors = F)
data=data[,-1]
data$treat=as.factor(data$group)
mnps.AOD <- mnps(treat ~ Gender + Age + Location + stage + size+Pre_chemo+resection,
                 data = data, 
                 estimand = "ATE", 
                 verbose = FALSE, 
                 stop.method = c("es.mean", "ks.mean"), 
                 n.trees = 3000)


library(survey)
data$w <- get.weights(mnps.AOD, stop.method = "es.mean")
design.mnps <- svydesign(ids=~1, weights=~w, data=data)

st=strata(data, stratanames=c('treat'), size=c(300,300,300), method=c("srswor","srswr","poisson",
                                              "systematic")[4], pik=1/data$w,description=T)

sda=data[st$ID_unit,]
write.csv(sda,'f:/SRC/SDA.CSV')
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 人面猴
    序言：七十年代末，一起剝皮案震驚了整個(gè)濱河市，隨后出現(xiàn)的幾起案子村视，更是在濱河造成了極大的恐慌斧拍，老刑警劉巖蜀备，帶你破解...
    沈念sama閱讀 219,110評(píng)論 6贊 508
  • 死咒
    序言：濱河連續(xù)發(fā)生了三起死亡事件关摇，死亡現(xiàn)場(chǎng)離奇詭異，居然都是意外死亡碾阁，警方通過查閱死者的電腦和手機(jī)拒垃，發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,443評(píng)論 3贊 395
  • 救了他兩次的神仙讓他今天三更去死
    文/潘曉璐 我一進(jìn)店門，熙熙樓的掌柜王于貴愁眉苦臉地迎上來瓷蛙，“玉大人悼瓮，你說我怎么就攤上這事〖桠” “怎么了横堡？”我有些...
    開封第一講書人閱讀 165,474評(píng)論 0贊 356
  • 道士緝兇錄：失蹤的賣姜人
    文/不壞的土叔 我叫張陵，是天一觀的道長(zhǎng)冠桃。 經(jīng)常有香客問我命贴，道長(zhǎng)，這世上最難降的妖魔是什么食听？ 我笑而不...
    開封第一講書人閱讀 58,881評(píng)論 1贊 295
  • ?港島之戀（遺憾婚禮）
    正文 為了忘掉前任胸蛛，我火速辦了婚禮，結(jié)果婚禮上樱报，老公的妹妹穿的比我還像新娘葬项。我一直安慰自己，他們只是感情好迹蛤，可當(dāng)我...
    茶點(diǎn)故事閱讀 67,902評(píng)論 6贊 392
  • 惡毒庶女頂嫁案：這布局不是一般人想出來的
    文/花漫 我一把揭開白布民珍。 她就那樣靜靜地躺著，像睡著了一般盗飒。 火紅的嫁衣襯著肌膚如雪嚷量。 梳的紋絲不亂的頭發(fā)上，一...
    開封第一講書人閱讀 51,698評(píng)論 1贊 305
  • 城市分裂傳說
    那天逆趣，我揣著相機(jī)與錄音蝶溶，去河邊找鬼。 笑死宣渗，一個(gè)胖子當(dāng)著我的面吹牛抖所，可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播落包，決...
    沈念sama閱讀 40,418評(píng)論 3贊 419
  • 雙鴛鴦連環(huán)套：你想象不到人心有多黑
    文/蒼蘭香墨 我猛地睜開眼部蛇，長(zhǎng)吁一口氣：“原來是場(chǎng)噩夢(mèng)啊……” “哼！你這毒婦竟也來了咐蝇？” 一聲冷哼從身側(cè)響起，我...
    開封第一講書人閱讀 39,332評(píng)論 0贊 276
  • 萬榮殺人案實(shí)錄
    序言：老撾萬榮一對(duì)情侶失蹤，失蹤者是張志新（化名）和其女友劉穎有序，沒想到半個(gè)月后抹腿，有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體，經(jīng)...
    沈念sama閱讀 45,796評(píng)論 1贊 316
  • ?護(hù)林員之死
    正文 獨(dú)居荒郊野嶺守林人離奇死亡旭寿，尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,968評(píng)論 3贊 337
  • ?白月光啟示錄
    正文 我和宋清朗相戀三年警绩，在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片盅称。...
    茶點(diǎn)故事閱讀 40,110評(píng)論 1贊 351
  • 活死人
    序言：一個(gè)原本活蹦亂跳的男人離奇死亡肩祥，死狀恐怖，靈堂內(nèi)的尸體忽然破棺而出缩膝，到底是詐尸還是另有隱情混狠，我是刑警寧澤，帶...
    沈念sama閱讀 35,792評(píng)論 5贊 346
  • ?日本核電站爆炸內(nèi)幕
    正文 年R本政府宣布疾层，位于F島的核電站将饺，受9級(jí)特大地震影響，放射性物質(zhì)發(fā)生泄漏痛黎。R本人自食惡果不足惜予弧，卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,455評(píng)論 3贊 331
  • 男人毒藥：我在死后第九天來索命
    文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望湖饱。 院中可真熱鬧掖蛤，春花似錦、人聲如沸井厌。這莊子的主人今日做“春日...
    開封第一講書人閱讀 32,003評(píng)論 0贊 22
  • 一樁弒父案，背后竟有這般陰謀
    文/蒼蘭香墨 我抬頭看了看天上的太陽旗笔。三九已至彪置，卻和暖如春，著一層夾襖步出監(jiān)牢的瞬間蝇恶，已是汗流浹背拳魁。 一陣腳步聲響...
    開封第一講書人閱讀 33,130評(píng)論 1贊 272
  • 情欲美人皮
    我被黑心中介騙來泰國(guó)打工， 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留撮弧，地道東北人潘懊。 一個(gè)月前我還...
    沈念sama閱讀 48,348評(píng)論 3贊 373
  • 代替公主和親
    正文 我出身青樓，卻偏偏與公主長(zhǎng)得像贿衍，于是被迫代替她去往敵國(guó)和親授舟。 傳聞我的和親對(duì)象是個(gè)殘疾皇子，可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 45,047評(píng)論 2贊 355

推薦閱讀更多精彩內(nèi)容