Rmvnorm () ফাংশনটি ব্যবহার করুন, এতে 3 টি আর্গুমেন্ট লাগে: ভেরিয়েন্স কোভারিয়েন্স ম্যাট্রিক্স, উপায় এবং সারিগুলির সংখ্যা।
সিগমাতে 3 * 5 = 15 টি সারি এবং কলাম থাকবে। প্রতিটি পরিবর্তনশীল প্রতিটি পর্যবেক্ষণ জন্য একটি। এই 15 ^ 2 প্যারামিটারগুলি সেট করার অনেকগুলি উপায় রয়েছে (আর, দ্বিপক্ষীয় প্রতিসাম্য, আনস্ট্রাকচার্ড ...)। তবে আপনি এই ম্যাট্রিক্স পূরণ করে অনুমানগুলি সম্পর্কে সচেতন হন, বিশেষত যখন আপনি শূন্যের সাথে কোনও সম্পর্ক / সমবায় সেটআপ করেন, বা আপনি যখন দুটি বৈকল্পিক সমান হতে চান তখন। একটি সূচনা পয়েন্টের জন্য একটি সিগমা ম্যাট্রিক্স কিছু দেখতে পারে:
sigma=matrix(c(
#y1 y2 y3
3 ,.5, 0, 0, 0, 0, 0, 0, 0, 0,.5,.2, 0, 0, 0,
.5, 3,.5, 0, 0, 0, 0, 0, 0, 0,.2,.5,.2, 0, 0,
0 ,.5, 3,.5, 0, 0, 0, 0, 0, 0, 0,.2,.5,.2, 0,
0 , 0,.5, 3,.5, 0, 0, 0, 0, 0, 0, 0,.2,.5,.2,
0 , 0, 0,.5, 3, 0, 0, 0, 0, 0, 0, 0, 0,.2,.5,
0 ,0 ,0 ,0 , 0, 3,.5, 0, 0, 0, 0, 0, 0, 0, 0,
0 ,0 ,0 ,0 ,0 ,.5, 3,.5, 0, 0, 0, 0, 0, 0, 0,
0 ,0 ,0 ,0 ,0 ,0 ,.5, 3,.5, 0, 0, 0, 0, 0, 0,
0 ,0 ,0 ,0 ,0 ,0 ,0 ,.5, 3,.5, 0, 0, 0, 0, 0,
0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,.5, 3, 0, 0, 0, 0, 0,
.5,.2,0 ,0 ,0 ,0 ,0 ,0 ,0 , 0, 3,.5, 0, 0, 0,
.2,.5,.2,0 ,0 ,0 ,0 ,0 ,0 ,0 ,.5, 3,.5, 0, 0,
0 ,.2,.5,.2,0 ,0 ,0 ,0 ,0 ,0 ,0 ,.5, 3,.5, 0,
0 ,0 ,.2,.5,.2,0 ,0 ,0 ,0 ,0 ,0 ,0 ,.5, 3,.5,
0 ,0 ,0 ,.2,.5,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,.5, 3
),15,15)
সুতরাং সিগমা [1,12] ২। 2 এবং এর অর্থ হ'ল Y1 এর প্রথম পর্যবেক্ষণ এবং Y3 এর 2 য় পর্যবেক্ষণের মধ্যে সমবায়তা অন্যান্য সমস্ত 13 ভেরিয়েবলের শর্তসাপেক্ষ। তির্যক সারিগুলি একই সংখ্যার হতে হবে না: এটি আমি তৈরি করা একটি সরল ধারণা। কখনও কখনও এটি বোঝায়, কখনও কখনও এটি না। সাধারণভাবে এর অর্থ তৃতীয় পর্যবেক্ষণ এবং চতুর্থ পর্যবেক্ষণের মধ্যে পারস্পরিক সম্পর্ক 1 ম এবং দ্বিতীয়টির মধ্যে পারস্পরিক সম্পর্ক as
আপনারও দরকার উপায়। এটি হিসাবে সহজ হতে পারে
meanTreat=c(1:5,51:55,101:105)
meanControl=c(1,1,1,1,1,50,50,50,50,50,100,100,100,100,100)
এখানে প্রথম 5 টি ওয়াই 1 এর 5 টি পর্যবেক্ষণের উপায়, ..., শেষ 5 টি ওয়াই 3 এর পর্যবেক্ষণ
তারপরে আপনার ডেটা নিয়ে 2000 টি পর্যবেক্ষণ পান:
sampleT=rmvnorm(1000,meanTreat,sigma)
sampleC=rmvnorm(1000,meanControl,sigma)
sample=data.frame(cbind(sampleT,sampleC) )
sample$group=c(rep("Treat",1000),rep("Control",1000) )
colnames(sample)=c("Y11","Y12","Y13","Y14","Y15",
"Y21","Y22","Y23","Y24","Y25",
"Y31","Y32","Y33","Y34","Y35")
যেখানে ওয়াই 11 হ'ল ওয়াই 1 এর প্রথম পর্যবেক্ষণ, ..., ওয়াই 15 হ'ল ওয়াই 1 এর 5 তম ...
n <- 3*5; sigma <- diag(1, nrow=n, ncol=n); sigma[rbind(cbind(1:n-1,1:n),cbind(1:n,1:n-1))] <- 1/2
। একটি অনুরূপ পদ্ধতির দ্বিতীয় উদাহরণ উত্পন্ন করা হবে। তবে, তাদের একটি সাধারণ সমস্যা রয়েছে: আপনি প্রতিটি সময়কালে মধ্যে সমবায় হারিয়ে ফেলেছেন - এই ম্যাট্রিকগুলি পুনরাবৃত্তি ব্যবস্থা কাঠামোর প্রতিফলন করে না।