# Ασκηση 2: x<-rnorm(20) wmean<-function(x) { m<-mean(x) s<-sd(x) w1<-rep(1,length(x)) w2<-NULL for (i in 1:length(x)) { if (abs((x[i]-m)/s)<1) w2[i]<-1 else if(1<=abs((x[i]-m)/s) & abs((x[i]-m)/s)<2) w2[i]<-0.5 else if(2<=abs((x[i]-m)/s)) w2[i]<-0 } w3<-dnorm(x,m,s) newm1<-sum(w1*x)/sum(w1) newm2<-sum(w2*x)/sum(w2) newm3<-sum(w3*x)/sum(w3) return(list(weighted_mean1=newm1,weighted_mean2=newm2,weighted_mean3=newm3)) }