以下にエラーLa.svd(x, nu, nv) : Lapack ルーチン 'dgesdd' からエラーコード 1 が返されました

###################################################################################
myprcomp <- function( matrixdata, maxpcs=200 ){
#
#  matrixdata : columns = observed stations
#             : lines   = time series
#  
#  dominant (default 200) signals are picked up and returned
#
  maxpcs    <- min( maxpcs, min(dim(matrixdata)) )
  
  covdata   <- cov( matrixdata )
  eigendata <- eigen( covdata )
  sdev      <- sqrt(eigendata$values[1:maxpcs])

  x         <- matrixdata %*% eigendata$vector[,1:maxpcs]

  return(list( sdev = sdev, rotation = eigendata$vector[,1:maxpcs], x = x ))
}