Hi,

I am doing program that takes samples y times from listMV and saves the
result to list MVdata. The problem is that I need sample mean or standard
deviation for each sample (times y) and for all samples together. How can I
do that? Mean() and sd() won´t work.

Thanks allready,
Titta

>
listMV<-c(1.182101983,1.249382648,1.374104215,1.336153877,1.331386231,1.319032094,1.311126545,1.221740863,1.298848481,1.241727379,1.339273873,1.386809408,1.355919009,1.321051409,1.256459148,1.284277166,1.300219992,1.377359149,1.231984488,1.308793786,1.319114185,1.417506978,1.310797119,1.230818679,1.229165322,1.320724049,1.342038449,1.201942636,1.334793202,1.30065893,1.409992259,1.369055222,1.214696135,1.228829414,1.273789905,1.328549897,1.201871417,1.272051102,1.381760814,1.482881264,1.35225819,1.171344013,1.235416322,1.25905681,1.34637339,1.188881698,1.221856048,1.302875505,1.43703543,1.434648007,1.246797867,1.236886744,1.308768636,1.253534504,1.246544401,1.347202456,1.253535584,1.442176865,1.40847141,1.241578938,1.238772941,1.30662151,1.326978911,1.237433784,1.308488464,1.274562848,1.452806933,1.486559719,1.237405035,1.175760893,1.316972548,1.313807387,1.224698176,1.239616142,1.259846334,1.423991194,1.406917943,1.25118274,1.200447065,1.237256663,1.237398053
+ )
> y<-3
> MVdata=c()
> for(i in 1:y){
+ s<-sample(listMV,size=5, replace=FALSE)
+ MVdata[[length(MVdata)+length(y)]]<-s}
>
> MVdata
[[1]]
[1] 1.434648 1.256459 1.237405 1.259057 1.334793

[[2]]
[1] 1.221856 1.201871 1.320724 1.231984 1.259846

[[3]]
[1] 1.182102 1.214696 1.310797 1.237405 1.308794

	[[alternative HTML version deleted]]

