# (Examples not run)
# Generate an m-by-n test matrix of rank r
# seed <- 12345
# m <- 1000
# n <- 1000
# r <- 5
# T <- testmatrix(m,n,r,seed=seed)
# Add some noise to the test matrix
# E <- 0.1*matrix(rnorm(m*n),m,n)
# A <- T + E
# Obtain a vector of unobserved entries
# temp <- makeOmega(m,n,percent=0.5)
# omega <- temp$omega
# Remove unobserved entries from test matrix
# X <- A
# X[omega] <- NA
# Make initial model matrix Z and find initial lambda
# Z <- matrix(0,m,n)
# lambda <- init.lambda(X,omega)
# Example (Not run)
# Sol <- matrixcomplete(X,Z,omega,lambda)
Run the code above in your browser using DataLab