[R] detect and replace outliers by the averaged

[Jeff Newmiller]

 0

On April 21, 2023 4:08:08 AM GMT+09:00, Dr Eberhard W Lisse <nospam using lisse.NA> wrote:
>There is at least one outliers package on CRAN.
>
>el
>On 20/04/2023 20:43, AbouEl-Makarim Aboueissa wrote:
>> Dear All:  *please discard my previous email*
>> 
>> 
>> 
>> *Re:* detect and replace outliers by the average
>> 
>> 
>> 
>> The dataset, please see attached, contains a group factoring column “
>> *factor*” and two columns of data “x1” and “x2” with some NA values. I need
>> some help to detect the outliers and replace it and the NAs with the
>> average within each level (0,1,2) for each variable “x1” and “x2”.
>> 
>> 
>> 
>> I tried the below code, but it did not accomplish what I want to do.
>> 
>> 
>> 
>> 
>> 
>> data<-read.csv("G:/20-Spring_2023/Outliers/data.csv", header=TRUE)
>> 
>> data
>> 
>> replace_outlier_with_mean <- function(x) {
>> 
>>   replace(x, x %in% boxplot.stats(x)$out, mean(x, na.rm=TRUE))  #### ,
>> na.rm=TRUE NOT working
>> 
>> }
>> 
>> data[] <- lapply(data, replace_outlier_with_mean)
>> 
>> 
>> 
>> 
>> 
>> Thank you all very much for your help in advance.
>> 
>> 
>> 
>> 
>> 
>> with many thanks
>> 
>> abou
>> 
>> 
>> ______________________
>> 
>> 
>> *AbouEl-Makarim Aboueissa, PhD*
>> 
>> *Professor, Mathematics and Statistics*
>> *Graduate Coordinator*
>> 
>> *Department of Mathematics and Statistics*
>> *University of Southern Maine*
>
>______________________________________________
>R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
>https://stat.ethz.ch/mailman/listinfo/r-help
>PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
>and provide commented, minimal, self-contained, reproducible code.

-- 
Sent from my phone. Please excuse my brevity.