dec <- c(rnorm(10, mean = 45, sd = 5), rnorm(10, mean = 20, sd = 5))
inc <- c(rnorm(10, mean = 45, sd = 5), rnorm(10, mean = 20, sd = 5))
id <- c(rep(1, 10), rep(2, 10))
earnet()
earpoints(dec, inc)
fm <- fmean(dec, inc, id = id)
earpoints(fm $dec, fm$inc, l = list(bg = "red"))
Run the code above in your browser using DataLab