data <- [....]
pca_results<-prcomp(na.omit(data[, -c(1, 2, 3, 4, 5, 6, 8, 43, 44, 45, 46)]), retx = FALSE, center = TRUE,  scale. = TRUE)

res.var <- get_pca_var(pca_results)
res.ind <- get_pca_ind(na.omit(pca_results))

Error in res.pca$x %*% t(res.pca$rotation) :
  requires numeric/complex matrix/vector arguments

ind.coord=pca_results$x