powered by
Append
str(Append) attach(Append) ll <- mean(fee)-2*sd(fee) ul <- mean(fee)+2*sd(fee) limits <-c(ll,ul) limits fee[fee<ll | fee>ul] detach(Append)
Run the code above in your browser using DataLab