again

matloff · Aug 12, 2020 · 756e632 · 756e632
1 parent 0a645ad
commit 756e632
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -43,6 +43,7 @@ export(knnest,preprocessx,meany, vary,loclin,predict.knn,nlshc,
    xyDataframeToMatrix,dummiesToInt,
    imgTo2D,imgFilesToMatrix,imgFileToVector,augMatrix,
    stdErrPred,
+   dimRed,dimRedNewX,reduceComps,
    knnRec,anovaRec,mfRec,predictMany,
    fineTuning,fineTuningPar,getNamedArgs,partTrnTst,makeOutdf,
    krsFit,krsFitImg,diagNeural,

diff --git a/R/DimRed.R b/R/DimRed.R
@@ -6,6 +6,15 @@
 
 # no centering/scaling is done; user may do separately
 
+# example
+
+# tg <- ToothGrowth
+# tg$supp <- as.numeric(tg$supp)
+# tg <- as.matrix(tg)
+# tgsvd <- dimRed(tg,method='svd',2)  # 2 PCs out of a possible 3
+# newx <- c(8.8,1,0.5)
+# dimRedNewX(tgsvd,newx)
+
 dimRed <- function(dat,method='prcomp',nComps) 
 {
    compSizes <- NULL  # eigenvalues etc.