def fivenum(self,event):
cov = rsession.r['fivenum']
o = cov(self.active_robject.object)
label = 'Tukey Five-Number Summary: ' + self.active_robject.label
self.active_output = rsession.description(o,label=label,tabelize=True)
self.output(o,title=label)
def mean(self,event):
mean = rsession.r['mean']
#o = rsession.sapply(self.active_robject.object,mean)
o = mean(self.active_robject.object)
label = 'Means: ' + self.active_robject.label
self.active_output = rsession.description(o,label=label,tabelize=True)
self.output(o,title=label)
def freqtable(self,event):
condition = variable_prompt.VariablePrompt(['Condition(s):']).get_inputs()
#This is dirty but ro.RFormula will not parse
try:
filter = rsession.r('with(%s,table(%s))' % (self.active_robject.label,condition[0]))
except:
error('Formula is not valid. \n Enter conditions seperated by commas. Ex: V1>3,V4<1')
return
self.output(filter,title='Frequency Table: ' + condition[0])
self.active_output = rsession.description(filter,tabelize=False)
def summary(self,event):
summary_object = rsession.summary(self.active_robject.object)
self.active_output = rsession.description(summary_object)
self.output(summary_object)
def cov(self,event):
cov = rsession.r['cov']
o = cov(self.active_robject.object)
label = 'Covariance: ' + self.active_robject.label
self.active_output = rsession.description(o,label=label,tabelize=True)
self.output(o,title=label)
def cor(self,event):
cor = rsession.r['cor']
o = cor(self.active_robject.object)
label = 'Correlation Coefficents: ' + self.active_robject.label
self.active_output = rsession.description(o,label=label,tabelize=True)
self.output(o,title=label)
def min(self,event):
min = rsession.r['min']
o = rsession.sapply(self.active_robject.object,min)
label = 'Minimums: ' + self.active_robject.label
self.active_output = rsession.description(o,label=label,tabelize=True)
self.output(o,title=label)
def max(self,event):
max = rsession.r['max']
o = rsession.sapply(self.active_robject.object,max)
label = 'Maximums: ' + self.active_robject.label
self.active_output = rsession.description(o,label=label,tabelize=True)
self.output(o,title=label)
def quantile(self,event):
quantile = rsession.r['quantile']
o = rsession.sapply(self.active_robject.object,quantile)
label = 'Ranges: ' + self.active_robject.label
self.active_output = rsession.description(o,label=label,tabelize=True)
self.output(o,title=label)
def sd(self,event):
sd = rsession.r['sd']
o = sd(self.active_robject.object)
label = 'Standard Deviations: ' + self.active_robject.label
self.active_output = rsession.description(o,label=label,tabelize=True)
self.output(o,title=label)
def variance(self,event):
var = rsession.r['var']
o = var(self.active_robject.object)
label = 'Ranges: ' + self.active_robject.label
self.active_output = rsession.description(o,label=label,tabelize=True)
self.output(o,title=label)
def render_description(self,object,label=None):
description = rsession.description(object,label=label)
self.add_r_object(description,label)
self.set_active_robject(description)
self.output(object,title=label)
