Categories
Uncategorized

Percentages and Ratios Function – R

get.pcs<-function(){
	cor<-num[1]
	mid<-num[2]
	per<-num[3]
	tot<-cor+mid+per

	res1<-c((cor/tot)*100,(mid/tot)*100,(per/tot)*100)
	res2<-c(cor/cor,mid/cor,per/cor)

	pri<-c(res1,res2)
	pri

}

Leave a Reply

Please log in using one of these methods to post your comment:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s