I am having trouble with apply. Could someone suggest changes to the
code below that will eliminate the for loops?
R 2.1.1 patched
Windows 2k
Thanks,
John

function ()
{
NaCon<-array(dim=c(10,10))
for (i in 1:10) {NaCon[i,]<-rnorm(10,10.77,0.02)}
MeanNaCon<-vector(mode="numeric",length=10)
for (j in 1:10) {MeanNaCon[j]<-mean(NaCon[j,1:10])}
print(MeanNaCon)
#assign("MakeNaCon",MakeNaCon)
hist(MeanNaCon)
}

John Sorkin M.D., Ph.D.
Chief, Biostatistics and Informatics
Baltimore VA Medical Center GRECC and
University of Maryland School of Medicine Claude Pepper OAIC

University of Maryland School of Medicine
Division of Gerontology
Baltimore VA Medical Center
10 North Greene Street
GRECC (BT/18/GR)
Baltimore, MD 21201-1524

410-605-7119
- NOTE NEW EMAIL ADDRESS:
jsorkin@(protected)

 [[alternative HTML version deleted]]

______________________________________________
R-help@(protected)
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html