minutes<-c(4,3,7,6,5,9)
lessmin<-NULL
meanJ<-NULL
medianJ<-NULL
for (i in 1:6){
lessmin<-minutes[-i]
meanJ<-c(meanJ,mean(lessmin))
medianJ<-c(medianJ,median(lessmin))
}


meanJ

medianJ

mean(meanJ)

mean(medianJ)

mean(minutes)

median(minutes)


###### ψευδοτιμές για τον μέσο (mean)

p<-NULL
minutes<-c(4,3,7,6,5,9)
for (i in 1:6){
me<-mean(minutes)
n<-length(minutes)
lessmin<-minutes[-i]
p[i]<-n*me-(n-1)*mean(lessmin)
}
mean(p)


###### ψευδοτιμές για την διάμεσο (median)

p2<-NULL
minutes<-c(4,3,7,6,5,9)
for (i in 1:6){
me<-median(minutes)
n<-length(minutes)
lessmin<-minutes[-i]
p2[i]<-n*me-(n-1)*median(lessmin)
}
mean(p2)