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)