Merve,
  I'm not 100 percent sure I understand everything that you want. But start
with the simulated likert scale data. The code that you have is not very
efficient and it has at least one typo. I do not know if columns or rows
represent the persons, so I'll set up as NROW and NCOL.
  An efficient way to generate multiple columns of the same distribution is
to generate all of the the random number and just make them a matrix.
Example code below.

NROW <- 20
NCOL <- 4
MAT <- matrix(sample(1:5, NROW*NCOL), ncol=NCOL)

  Random normal deviates are typically generated from the rnorm function.
But you stated you wanted to generate the normal distribution from total
scores. I'm a bit confused because you refer to 200 people but that does
not correspond to any number in the data that you have generated.
  Hope this helps.
Dave

Date: Tue, 29 Apr 2014 09:38:52 +0300
> From: Merve ?ahin <sahinmerv@gmail.com>
> To: r-help@r-project.org
> Subject: [R] Simulative data production
> Message-ID:
>         <CAGSOz1uX4XUBoOV=WSd1gSuxKX+17Zv==Y7=
> 3hHswa7tN6ak2A@mail.gmail.com>
> Content-Type: text/plain
>
> Hello,
> My name is Merve from Abant İzzt Baysal University. I want to produce
> simulative data using R, but I couldn't do. I want to produce n=200, 5
> likert type, 20 items and normally distributed data. The normal
> distribution is provided by total scores of each of 200 person. I produce
> this kind of data;
> veri.seti<as.data.frame(cbind(sample(1:5,25,replace=T),sample(1:5,25,rep
> lace=T),sample(1:5,25,replace=T),sample(1:5,25,replace=T))))
> V1 V2 V3 V4
> 1   4  1  5  1 <callto:1 4 1 5 1>
> 2   2  4  2  2 <callto:2 2 4 2 2>
> 3   5  5  1  4 <callto:3 5 5 1 4>
> 4   4  5  3  4 <callto:4 4 5 3 4>
> 5   3  2  3  1 <callto:5 3 2 3 1>
> 6   3  1  2  1 <callto:6 3 1 2 1>
> 7   1  3  5  4 <callto:7 1 3 5 4>
> 8   2  4  1  1 <callto:8 2 4 1 1>
> 9   3  1  5  4 <callto:9 3 1 5 4>
> 10  4  5  4  5 <callto:10 4 5 4 5>
> 11  2  1  4  5 <callto:11 2 1 4 5>
> 12  2  3  1  5 <callto:12 2 3 1 5>
> 13  1  4  2  4 <callto:13 1 4 2 4>
> 14  1  1  1  4 <callto:14 1 1 1 4>
> 15  4  3  4  1 <callto:15 4 3 4 1>
> 16  2  2  5  2 <callto:16 2 2 5 2>
> 17  4  4  1  4 <callto:17 4 4 1 4>
> 18  5  5  2  4 <callto:18 5 5 2 4>
> 19  4  2  1  3 <callto:19 4 2 1 3>
> 20  3  5  3  2 <callto:20 3 5 3 2>
> 21  2  4  4  4 <callto:21 2 4 4 4>
> 22  4  3  4  4 <callto:22 4 3 4 4>
> 23  5  1  5  2 <callto:23 5 1 5 2>
> 24  4  2  2  2 <callto:24 4 2 2 2>
> 25  2  2  1  3 <callto:25 2 2 1 3>
>
> But, I cannot check or provide the normal distribution. Also, I want to add
> this data on SPSS 20.0, How can I do this. Can you help me, please?
>
> *Arş.Gör.Merve ŞAHİN*
> *Abant İzzet Baysal Üniversitesi*
> *Eğitim Bilimleri Bölümü*
> *Ölçme ve Değerlendirme A.B.D.*
>
>         [[alternative HTML version deleted]]
>
>
>

	[[alternative HTML version deleted]]

