R/plotNum.R

plotNum<-
function(X,LI,...){
tab.num<-data.frame(X[,sapply(X,is.numeric)])
names(tab.num)<-names(X)[sapply(X,is.numeric)]
if(ncol(tab.num)>0.5){
dev.new()
s.corcircle(cor(tab.num,LI,use="pairwise.complete.obs"),...)
}
}

Try the RcmdrPlugin.pointG package in your browser

Any scripts or data that you put into this service are public.

RcmdrPlugin.pointG documentation built on May 2, 2019, 3:26 p.m.