# NOT RUN {
# Load a data frame with 103 rows and 2 columns.
# The last two rows of the data are the outliers.
data(clusters2d)
#
# Remove the outliers of the dataset.
cluster_without_outlier <- clusters2d[c(1:101),]
myxvec <- c(min(cluster_without_outlier[,1]),
max(cluster_without_outlier[,1]))
myyvec <- c(min(cluster_without_outlier[,2]),
max(cluster_without_outlier[,2]))
#
# Plot the figure.
set.seed(5)
Plot2dMedian(clusters2d, myxvec, myyvec, yamm.nprojs = 2000,
PmedMCInt.nprojs = 20000, no.subinterval = 36,
opt.method = "BFGS", xlab = "Component1",
ylab = "Component2")
# }
Run the code above in your browser using DataLab