ΪʲôÕâ¸öÏßÐÔ»ìºÏÄ£ÐÍÊÇÆæÒìµÄ£¿
ÎÒÊÔͼÀí½âΪʲôÔÚ¶ÔÏÂÃæµÄÊý¾ÝÄâºÏÏßÐÔ»ìºÏЧӦģÐÍʱ»áµÃµ½ÆæÒìÄâºÏ¡£IʹÓÃR lme4:£ºlmer£¬Ä£Ðͷdz£¼òµ¥£¬Ö»Óнؾà×÷Ϊ¹Ì¶¨Ð§Ó¦£¬Òò×Ó±äÁ¿×÷ΪËæ»ú±äÁ¿¡£ÒÔÏÂ
½â´ð¶¯Ì¬
Ⱥ
id£©£©±ß½ç£¨µ¥Êý£©ÄâºÏ£º²Î¼û£¿Isangularlt£»lt£»<£»×ܽᣨÄâºÏ£©ÏßÐÔ»ìºÏÄ£ÐÍREMLÄâºÏ['lmerMod']¹«Ê½£ºy~1+£¨1
×éid£©Êý¾Ý£ºÊÕÁ²Ê±µÄdataREML±ê×¼£º239±ê¶È²Ð²î£º×îС1QÖÐλÊý3Q×î´ó-2.139-0.604-0.093 0.467 3.242Ëæ»úЧӦ£º×éÃû·½²î±ê׼ƫ²î.×éid£¨½Ø¾à£©0.00 0.00²Ð²î7.05 2.66obsÊýÁ¿£º50£¬×飺×éid£¬5¹Ì¶¨Ð§Ó¦£º¹À¼Æ±ê×¼Îó²îtÖµ£¨½Ø¾à£©8.641 0.376 23ÓÅ»¯Æ÷£¨nloptwrap£©ÊÕÁ²´úÂ룺0£¨È·¶¨£©±ß½ç£¨ÆæÒ죩ÄâºÏ£º²Î¼û£¿issingular ¶ÔÓÚisSingularµÄ°ïÖúÊÇ£¬·½²îз½²î¾ØÕóµÄһЩ¡°Î¬¶È¡±±»¾«È·µØ¹À¼ÆΪÁ㣬ÎÒÏë´ÓÊý¾ÝÖÐÁ˽ⷢÉúÕâÖÖÇé¿öµÄÔÒò¡£
ÕýÈçÄúËù·¢Ïֵģ¬µ±ÆäÖÐÒ»¸ö·½²î·ÖÁ¿±»¹À¼ÆΪÁãʱ£¬¾Í»á·¢ÉúÕâÖÖÇé¿ö¡£Õâͨ³£ÓÐÁ½¸öexpÖ®Ò»ÓïÑÔ£º
Ëæ»úЧӦ½á¹¹Êǹý¶ÈÄâºÏµÄ-ͨ³£ÊÇÒòΪ̫¶àµÄËæ»úбÂÊ£¬Ò»¸ö¸ü´óµÄ·½²î·ÖÁ¿Êµ¼ÊÉϷdz£½Ó½üÓÚÁ㣬²¢ÇÒûÓÐ×ã¹»µÄÊý¾Ý¹À¼ÆËü¸ßÓÚÁã¡£ÏÔÈ»µÚÒ»ÖÖÇé¿ö²»ÊÇÄãµÄÊý¾Ý£¬ÒòΪÄãÖ»ÓÐËæ»ú±äÁ¿
ËùÒÔ×éidµÄËæ»ú½Ø»ñµÄʵ¼Ê±ä»¯ºÜ¿ÉÄܽӽüÓÚÁã¡£Èç¹ûÊÇ£¬ÄÇôֻÓÐ5×飬Èí¼þ¿ÉÄÜÎÞ·¨¹À¼Æ´óÓÚÁãµÄ·½²î×ÊÁÏͼ£ºÎÒÃÇ¿ÉÒÔÎÒÃÇÒѾ¿´µ½£¬Óë×éÄڵı仯Ïà±È£¬×éƽ¾ùÖµµÄ±ä»¯ºÜÐ £
ÎÒÃÇ¿ÉÒÔ´ÓÈý¸ö·½Ã棨ÖÁÉÙ£©¸üÕýʽµØÑо¿Õâ¸öÎÊÌ⣺
Ê×ÏÈ£¬ÈÃÎÒÃÇÀ´¿´¿´Ã¿Ò»ÖÖ·½·¨µÄÊý¾Ý×é±ð£º
¿â£¨tidyverse£©Êý¾Ý%gt£»%»ã×Ü£¨Æ½¾ùÖµ=ƽ¾ùÖµ£¨y£©£©##1 8.85##2 9.65##3 8.84##4 7.70##5 8.17 Çë×¢Ò⣬ËùÓÐ×éÖ®¼äµÄ²îÒì·Ç³£Ð¡£¬µ«Çë×¢Ò⣬×é1ºÍ×é3µÄƽ¾ùÖµ¼¸ºõÏàͬ¡£ÈÃÎÒÃǰѵÚ1×éÈ¥µô£¬¿´¿´ÊÇʲô·¢Éú£º
data%gt£»%lmer£¨y~1+£¨1×éid£©£¬data=£©%lt£»-100simvec_rintlt£»-ÊýÖµ£¨n.sim£©#ÏòÁ¿£¬ÓÃÓÚ±£´æ£¨i in 1:n.sim£©{²¥ÖÖ£¨i£© data$y1=data$y+rep£¨rnorm£¨5£¬0£¬1£©£¬Ã¿¸ö=10£©m0<£»-lmer£¨y1~1+£¨1
×éid£©£¬data=data£©if£¨£¡isSingular£¨m0£©£©{#Èç¹ûÄ£ÐͲ»ÊÇÆæÒìµÄ£¬ÔòÌáÈ¡Ëæ»úºÍ¹Ì¶¨Ð§Ó¦VarCorr£¨m0£©%gt£»%À£¨vcov£©%gt£»simvec\u rint[i]ÕªÒª£¨m0£©%gt£»%×÷ΪÏòÁ¿£¨£©%gt£»simvec\u fint[i]}ÆäËû{simvec\u rint[i]lt£»-ËùÒÔÎÒÃÇÔÚ·½²îΪ1µÄȺÖмÓÈëÁËËæ»úÔëÉù¡£ÃÉÌØ¿¨ÂÞ¹À¼ÆÊÇ£º
gt£»Æ½¾ùÖµ£¨simvec\u fint£¬²»ÊÊÓÃrm=TRUE£©[1]8.637063 ×¢¼´£º
·½²îÆäÖÐËæ»ú½Ø»ñÊýΪ1.12¡£È»¶ø£¬ÎÒÃÇ°Ñ·½²î¼Óµ½Á˵ÈÓÚ1µÄ×éÖУ¬ÕâÒâζ×ÅÔʼÊý¾ÝÖÐËæ»ú½Ø¾àµÄ·½²î½Ó½üÓÚÁ㣬ÕýÈçÎÒÃÇËù»³ÒɵÄÄÇÑù¡£
¹Ì¶¨½Ø¾àÊÇ8.64£¬ÕâÓëÔʼÊý¾ÝÄâºÏµÄÄ£ÐÍ»ù±¾Ïàͬ¡£
×îºó£¬ÈÃÎÒÃÇ¿´Ò»¸öûÓÐËæ»úЧӦµÄÄ£ÐÍ£¬ºÜÃ÷ÏÔÕ⽫ÊÇÒ»¸ö·½²î·ÖÎö£º
gt£»%summary£¨£©Df Sum Sq Mean Sq F value Pr£¨gt£»lm£¨y~×éid£¬data=data£©%gt£»t
£©£¨½Ø¾à£©8.8510 0.8479 10.438 1.33e-13***×é
id2 0.7950 1.1992 0.663 0.511×é
id3-0.0150 1.1992-0.013 0.990×é
id4-1.1490 1.1992-0.958 0.343×é
id5-0.6810 1.1992-0.568 0.573 Òò´ËÒ²ºÜÉÙÓÐÖ¤¾Ý±íÃ÷×é2¡¢3¡¢4ºÍ5¾ßÓв»Í¬µÄµÚ1×éµÄƽ¾ùÖµ¡£ÕâÁ½ÖÖÄ£ÐͶ¼Óë»ìºÏÄ£ÐÍÖÐËæ»ú½Ø¾àµÄ±ä»¯ºÜСµÄÇé¿öÏàÒ»Ö¡£Òò´Ë£¬×ܶøÑÔÖ®£¬ÔÚÕâÖÖÇé¿öÏ£¬ÎÒÃÇ¿ÉÒԵóö½áÂÛ£¬ÓÉÓÚ×éÊý½ÏÉÙ£¬×é¼ä¹À¼ÆµÄ±ä»¯½ÏС£¬Èí¼þÎÞ·¨¹À¼ÆÁãÒÔÉϵÄËæ»ú½Ø¾à±ä»¯£¬Òò´ËÄ£ÐÍÊÇÆæÒìµÄ£¬¾¡¹ÜÄ£Ð͹À¼ÆËƺõÊÇ¿É¿¿µÄ
- End
ÃâÔðÉùÃ÷£º
±¾Ò³ÄÚÈݽö´ú±í×÷Õß±¾ÈËÒâ¼û£¬ÈôÒò´Ë²úÉúÈκξÀ·×ÓÉ×÷Õß±¾È˸ºÔ𣬸ÅÓëÇÙµºÍø¹«Ë¾Î޹ء£±¾Ò³ÄÚÈݽö¹©²Î¿¼£¬ÇëÄú¸ù¾Ý×ÔÉíʵ¼ÊÇé¿ö½÷É÷²Ù×÷¡£ÓÈÆäÉæ¼°Äú»òµÚÈý·½ÀûÒæµÈÊÂÏÇë×ÉѯרҵÈËÊ¿´¦Àí¡£