Error in svd(x, nu = 0) : 0 extent dimensions

Question

I am trying to do PCA on data frame with 5000 columns and 30 rows

Sample <- read.table(file.choose(), header=F,sep=\"\\t\")
Sample.scaled <- data.frame         


        

Answer 1

Negative infinity values can be replaced after a log transform as below.

log_features <- log(data_matrix[,1:8])
log_features[is.infinite(log_features)] <- -99999