Provide a list of 3 numbers (separated by commas) that has a mean value of $mean. x<-c(RESPONSE[1],RESPONSE[2],RESPONSE[3]); abs(mean(x)-LONCAPALIST[1])<0.001