# NOT RUN {
# Load a data frame with 105 rows and 3 columns.
# The last five rows of the data are the outliers.
data(clusters3d)
#
# Remove the outliers of the dataset.
cluster_without_outlier <- clusters3d[c(1:100),]
myxvec <- c(min(cluster_without_outlier[,1]),
max(cluster_without_outlier[,1]))
myyvec <- c(min(cluster_without_outlier[,2]),
max(cluster_without_outlier[,2]))
myzvec <- c(min(cluster_without_outlier[,3]),
max(cluster_without_outlier[,3]))
#
# Plot the figure.
set.seed(15)
Plot3dMedian(cluster_without_outlier, myxvec, myyvec, myzvec,
yamm.nprojs = 2000, PmedMCInt.nprojs = 15000,
no.subinterval = c(18,36),opt.method = "BFGS",
xlab = "Component1",ylab = "Component2",
zlab = "Component3")
# }
Run the code above in your browser using DataLab