R Code

# 'dataset' holds the input data for this script
database = dataset

# Crear regresión
regression <- lm(filtration_efficiency ~ certification + in_mask_concentration, data=database)

new_data <- data.frame(
  certification=c('FFP2','N95','KF94','N100','KN95','Cntrl Nano','NIOSH N95'), 
  in_mask_concentration=c(2345,100, 3987, 4897, 9572, 12300,3751)
)

new_data$pred<-as.character(format(round(predict(regression, new_data), 2), nsmall = 2))


sample_predictions3 = new_data
write.csv(new_data, "C:/Users/Administrator/dev/Python/md-master-mask/prediction/test.csv")